Typos.

diff --git a/src/runtime/stream.scm b/src/runtime/stream.scm
index e0a0e306e13598d72ff98e91043ea482c75a12bd..cf8c81142bfd6c6e5af644cc7d60e89e325e6215 100644 (file)
--- 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)))))
 \f
 (define prime-numbers-stream)