mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

Fix reader extensions in Scheme reader

Browse source 
* module/ice-9/read.scm (%read): Fix invocation of hash procedure.
This commit is contained in:
Andy Wingo 2021-03-03 16:19:57 +01:00
parent 5ea8c69e91
commit 816c8d23a1
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

@ -602,7 +602,7 @@
((eof-object? ch) ((eof-object? ch)
(error "unexpected end of input after #")) (error "unexpected end of input after #"))
((read-hash-procedure ch) ((read-hash-procedure ch)
=> (lambda (proc) (proc ch))) => (lambda (proc) (proc ch port)))
(else (else
(case ch (case ch
((#\\) (read-character)) ((#\\) (read-character))