fix order of arguments to parse-fold

This commit is contained in:
Edwin Watkeys 2018-12-11 12:21:07 +01:00
parent 670cd82488
commit c912f1e24f

View file

@ -307,7 +307,7 @@
(define (parse->list f source . o) (define (parse->list f source . o)
(let ((index (if (pair? o) (car o) 0))) (let ((index (if (pair? o) (car o) 0)))
(reverse (parse-fold cons '() f source index)))) (reverse (parse-fold f cons '() source index))))
;;> As \scheme{parse->list} but requires the entire source be parsed ;;> As \scheme{parse->list} but requires the entire source be parsed
;;> with no left over characters, signalling an error otherwise. ;;> with no left over characters, signalling an error otherwise.