Commits

Moritz Heidkamp  committed 15d2d3c

Remove obsolete comment

  • Participants
  • Parent commits 399b17e

Comments (0)

Files changed (1)

File comparse.scm

                (eq? (lazy-head input) (string-ref str pos))
                (loop (+ pos 1) (lazy-tail input)))))))
 
-;; Allow (any-of (list parser ...)) alternatively?
 (define ((any-of parser . parsers) input)
   (let loop ((parsers (args-list parser parsers)))
     (and (not (null? parsers))