From 9897650f7a75a205b08dbe4c155644860c12cb53 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 5 Mar 2021 20:35:22 +0100
Subject: [PATCH] Fix reading of #true / #false

* module/ice-9/read.scm (%read): Fix bad argument order to unread-char.
---
 module/ice-9/read.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 80f145bdc..e403e01cd 100644
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -407,7 +407,7 @@
                          (next)
                          (lp (1+ i)))
                        (begin
-                         (unread-char port ch)
+                         (unread-char ch port)
                          #f))))))))
 
   (define (read-false-or-srfi-4-vector)