Commits

Anonymous committed 2f5afe5

Remove booleans for turning parse results to string

  • Participants
  • Parent commits c405ce7

Comments (0)

Files changed (1)

 
 (define (as-string parser)
   (sequence* ((parts parser))
-    (result (apply conc parts))))
+    (result (apply conc (remove boolean? (flatten parts))))))
 
 (define (->lazy-seq x)
   (cond ((lazy-seq? x) x)