summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2021-03-03 16:19:57 +0100
committerAndy Wingo <wingo@pobox.com>2021-03-03 16:22:56 +0100
commit816c8d23a1dab3113bbace17b7130b46dff3a70d (patch)
treeda8cf67b0e5caba10e5e114686f5bb083e8cb8b1
parent5ea8c69e9153a970952bf6f0b32c4fad6a28e839 (diff)
downloadguile-816c8d23a1dab3113bbace17b7130b46dff3a70d.tar.gz
Fix reader extensions in Scheme reader
* module/ice-9/read.scm (%read): Fix invocation of hash procedure.
-rw-r--r--module/ice-9/read.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 8d9faca5c..73e043bb1 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))