gen:stream fix example code (#2802)

This commit is contained in:
John Clements 2019-08-30 10:34:09 -04:00 committed by GitHub
parent 1811193285
commit 65ce0cd468
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -1245,7 +1245,7 @@ stream, but plain lists can be used as streams, and functions such as
(define (stream-first stream)
(first (list-stream-v stream)))
(define (stream-rest stream)
(rest (list-stream-v stream)))])
(list-stream (rest (list-stream-v stream))))])
(define l1 (list-stream '(1 2)))
(stream? l1)