From: Andy Wingo <wingo@pobox.com>
Date: Wed, 3 Mar 2021 15:19:57 +0000 (+0100)
Subject: Fix reader extensions in Scheme reader
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=816c8d23a1dab3113bbace17b7130b46dff3a70d;p=platform%2Fupstream%2Fguile.git

Fix reader extensions in Scheme reader

* module/ice-9/read.scm (%read): Fix invocation of hash procedure.
---

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))