mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
fix order of arguments to parse-fold
This commit is contained in:
parent
670cd82488
commit
c912f1e24f
1 changed files with 1 additions and 1 deletions
|
@ -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.
|
||||||
|
|
Loading…
Add table
Reference in a new issue