Commits

Moritz Heidkamp  committed 7fec6f7

Remove custom as-string

comparse's does the trick now

  • Participants
  • Parent commits f69e25a

Comments (0)

Files changed (1)

 
 (import chicken scheme)
 (use srfi-14 srfi-69 lazy-seq
-     (except comparse as-string)
+     (except comparse)
      (only srfi-1 cons* find remove)
      (only data-structures compose constantly identity alist-ref conc string-translate*)
      (only srfi-13 string-pad)
 (define handle-false (constantly (result #f)))
 (define handle-null (constantly (result 'null)))
 
-(define (as-string parser)
-  (sequence* ((parts parser))
-    (result (apply conc (remove boolean? parts)))))
-
 (define json-escape-chars
   "\"\\bfnrt/")