diff options
author | Andy Wingo <wingo@pobox.com> | 2021-03-03 16:19:57 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2021-03-03 16:22:56 +0100 |
commit | 816c8d23a1dab3113bbace17b7130b46dff3a70d (patch) | |
tree | da8cf67b0e5caba10e5e114686f5bb083e8cb8b1 | |
parent | 5ea8c69e9153a970952bf6f0b32c4fad6a28e839 (diff) | |
download | guile-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.scm | 2 |
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)) |