Commits

Anonymous committed d1f6dd9

Also allow passing lists instead of varargs to followed-by

  • Participants
  • Parent commits 35da6da

Comments (0)

Files changed (1)

File comparse.scm

                 (result value)
                 (loop (cdr parsers)))))))
 
-(define ((followed-by parser . following) input)
+(define ((followed-by parser following . more-following) input)
   (and-let* ((value (parser input)))
-    (let loop ((following following) (input (cdr value)))
+    (let loop ((following (parser-list following more-following))
+               (input (cdr value)))
       (if (null? following)
           value
           (and-let* ((value ((car following) input)))