Commits

Moritz Heidkamp  committed 3fc510a

Add list to ->lazy-seq

  • Participants
  • Parent commits ab2bb5e

Comments (0)

Files changed (1)

File comparse.scm

 (define (->lazy-seq x)
   (cond ((lazy-seq? x) x)
         ((string? x) (list->lazy-seq (string->list x)))
+        ((list? x) (list->lazy-seq x))
         ((input-port? x) (input-port->lazy-seq x read-char))
         (else (error "Don't know how to turn object into lazy-seq" x))))