summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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))