[Guile-commits] 04/07: Fix reading neoteric exprs in Scheme reader

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit dba766907715ccab11936edf2b1dc10905c15c63
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Wed Mar 3 16:20:24 2021 +0100

    Fix reading neoteric exprs in Scheme reader
    
    * module/ice-9/read.scm (%read): Call the inner reader, not the outer
    reader.
---
 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 73e043b..8a6c56c 100644
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -708,7 +708,7 @@
        (read-mixed-case-symbol ch))))
 
   (define (read-neoteric ch)
-    (let lp ((expr (read-expr ch)))
+    (let lp ((expr (read-expr* ch)))
       ;; 'expr' is the first component of the neoteric expression.  If
       ;; the next character is '(', '[', or '{', (without any
       ;; intervening whitespace), we use it to construct a new