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 | |
| 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.
| -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) |