mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
Fix reader extensions in Scheme reader
* module/ice-9/read.scm (%read): Fix invocation of hash procedure.
This commit is contained in:
parent
5ea8c69e91
commit
816c8d23a1
1 changed files with 1 additions and 1 deletions
|
@ -602,7 +602,7 @@
|
|||
((eof-object? ch)
|
||||
(error "unexpected end of input after #"))
|
||||
((read-hash-procedure ch)
|
||||
=> (lambda (proc) (proc ch)))
|
||||
=> (lambda (proc) (proc ch port)))
|
||||
(else
|
||||
(case ch
|
||||
((#\\) (read-character))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue