3 ;; stream-of-numbers -> floating point number -> number
4 (define (stream-limit s limit)
5 (let ([num0 (stream-car s)]
6 [num1 (stream-car (stream-cdr s))])
7 (let ([diff (- num0 num1)])
8 (if (< (abs diff) limit)
10 (stream-limit (stream-cdr s) limit)))))