mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

Fix reading of #true / #false

Browse source 
* module/ice-9/read.scm (%read): Fix bad argument order to unread-char.
This commit is contained in:
Andy Wingo 2021-03-05 20:35:22 +01:00
parent aaa8f201e9
commit 9897650f7a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/read.scm
View file

@ -407,7 +407,7 @@
(next) (next)
(lp (1+ i))) (lp (1+ i)))
(begin (begin
(unread-char port ch) (unread-char ch port)
#f)))))))) #f))))))))
(define (read-false-or-srfi-4-vector) (define (read-false-or-srfi-4-vector)