From c912f1e24fa9fb601d846283c4a9a19294c5814a Mon Sep 17 00:00:00 2001
From: Edwin Watkeys <edw@poseur.com>
Date: Tue, 11 Dec 2018 12:21:07 +0100
Subject: [PATCH] fix order of arguments to parse-fold

---
 lib/chibi/parse/parse.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/chibi/parse/parse.scm b/lib/chibi/parse/parse.scm
index 25bdaa35..d2fc3091 100644
--- a/lib/chibi/parse/parse.scm
+++ b/lib/chibi/parse/parse.scm
@@ -307,7 +307,7 @@
 
 (define (parse->list f source . o)
   (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
 ;;> with no left over characters, signalling an error otherwise.