Commits

Anonymous committed 7ab06d4

Simplify realized-lazy-seq

Comments (0)

Files changed (1)

 
 (define (realized-lazy-seq seq)
   (or (lazy-seq-value seq)
-      (let* ((body (lazy-seq-body seq))
-             (value (body)))
+      (let ((value ((lazy-seq-body seq))))
         (lazy-seq-body-set! seq #f)
         (let loop ((value value))
           (if (or (null? value) (pair? value))