diff options
author | Andy Wingo <wingo@pobox.com> | 2021-03-05 20:35:22 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2021-03-05 20:44:58 +0100 |
commit | 9897650f7a75a205b08dbe4c155644860c12cb53 (patch) | |
tree | fb53617837d8203986d306798562577f943998db /module/ice-9/read.scm | |
parent | aaa8f201e9bae914421cc98660bfb64cd15a91c0 (diff) | |
download | guile-9897650f7a75a205b08dbe4c155644860c12cb53.tar.gz |
Fix reading of #true / #false
* module/ice-9/read.scm (%read): Fix bad argument order to unread-char.
Diffstat (limited to 'module/ice-9/read.scm')
-rw-r--r-- | module/ice-9/read.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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) |