summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2021-03-03 16:20:24 +0100
committerAndy Wingo <wingo@pobox.com>2021-03-03 16:22:56 +0100
commitdba766907715ccab11936edf2b1dc10905c15c63 (patch)
tree36984727c27693db8ad337b6d6683a1624d9e51a
parent816c8d23a1dab3113bbace17b7130b46dff3a70d (diff)
downloadguile-dba766907715ccab11936edf2b1dc10905c15c63.tar.gz
Fix reading neoteric exprs in Scheme reader
* module/ice-9/read.scm (%read): Call the inner reader, not the outer reader.
-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 73e043bb1..8a6c56c8b 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