Implement till 3.76

util.scm

@@ -109,6 +109,11 @@
 (define (add-streams s1 s2)
   (stream-map + s1 s2))
 
+(define (list->stream xs)
+  (if (null? xs)
+    '()
+    (cons-stream (car xs) (list->stream (cdr xs)))))
+
 (define ones (cons-stream 1 ones))
 
 (define integers (cons-stream 1 (add-streams ones integers)))