Commits

Moritz Heidkamp  committed 7ab06d4

Simplify realized-lazy-seq

  • Participants
  • Parent commits bfa21e1

Comments (0)

Files changed (1)

File lazy-seq.scm

 
 (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))