3 (define (rand-seq init req-stream)
4 (let ((req (stream-car req-stream)))
5 (cond ((eq? req 'reset)
6 (let ((new-init (stream-car (stream-cdr req-stream))))
7 (let ((new-rand-val (rand-update new-init)))
10 (rand-seq new-rand-val
11 (stream-cdr (stream-cdr req-stream)))))))
13 (let ((new-val (rand-update init)))
16 (rand-seq new-val (stream-cdr req-stream))))))))