Commits

Moritz Heidkamp committed 71a2174

Allow already realized lists to be returned from body

Comments (0)

Files changed (2)

               (begin
                 (lazy-seq-value-set! seq value)
                 value)
-              (loop ((lazy-seq-body value))))))))
+              (loop (or (lazy-seq-value value)
+                        ((lazy-seq-body value)))))))))
 
 (define (lazy-head seq)
   (car (realized-lazy-seq seq)))
   (test-assert (lazy-seq? seq))
   (test-assert (lazy-seq-realized? seq))
   (test '("foo" "bar") (lazy-seq->list seq))
-  (test-assert (lazy-null? (lazy-tail (lazy-tail seq)))))
+  (test-assert (lazy-null? (lazy-tail (lazy-tail seq))))
+  (test "ok" (lazy-head (lazy-seq (list->lazy-seq '("ok"))))))
 
 
 (test-group "lazy-map"
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.