From 08a86a097107c50d7e01edb070969f26681d2262 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Sat, 16 Jan 2016 17:20:27 -0800 Subject: [PATCH] Typos. --- src/runtime/stream.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/runtime/stream.scm b/src/runtime/stream.scm index e0a0e306e..cf8c81142 100644 --- a/src/runtime/stream.scm +++ b/src/runtime/stream.scm @@ -267,9 +267,9 @@ USA. (define (stream->list stream) (let loop ((s stream) (elements '())) - (cond ((stream-pair? tail) (loop (tail s) (cons (head s) elements))) + (cond ((stream-pair? s) (loop (tail s) (cons (head s) elements))) ((null? s) (reverse elements)) - (else (error:illegal-stream-element stream 'STREAM->LIST 0))))) + (else (error:illegal-stream-element s 'STREAM->LIST 0))))) (define prime-numbers-stream) -- 2.25.1