Merge pull request #503 from edw/parse->list

Parse->list calls parse->fold with incorrect argument order
This commit is contained in:
Alex Shinn 2018-12-11 22:44:59 +08:00 committed by GitHub
commit 7b428d2a54
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

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.