3.64

 

;3.64
(define (stream-limit x tolerance)
  (let ((first-car (stream-car x))
        (second-car (stream-car (stream-cdr x))))
    (if (< (abs (- first-car second-car)) tolerance)
        second-car
        (stream-limit (stream-cdr x) tolerance))))