wingo pushed a commit to branch master
in repository guile.
commit 816c8d23a1dab3113bbace17b7130b46dff3a70d
Author: Andy Wingo <wi...@pobox.com>
AuthorDate: Wed Mar 3 16:19:57 2021 +0100
Fix reader extensions in Scheme reader
* module/ice-9/read.scm (%read): Fix invocation of hash procedure.
---
module/ice-9/read.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 8d9faca..73e043b 100644
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -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))
