Commits

Moritz Heidkamp committed 9b0204d

Improve parser-input printer

Comments (0)

Files changed (1)

         (display "-end>" out)
         (let loop ((n 10)
                    (seq seq))
-          (if (lazy-seq-realized? seq)
-              (if (or (zero? n) (lazy-null? seq))
+          (if (and (lazy-seq-realized? seq) (not (zero? n)))
+              (if (lazy-null? seq)
                   (display ">" out)
                   (begin
                     (display " " out)