diff options
author | Andy Wingo <wingo@pobox.com> | 2021-03-03 16:20:24 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2021-03-03 16:22:56 +0100 |
commit | dba766907715ccab11936edf2b1dc10905c15c63 (patch) | |
tree | 36984727c27693db8ad337b6d6683a1624d9e51a | |
parent | 816c8d23a1dab3113bbace17b7130b46dff3a70d (diff) | |
download | guile-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.scm | 2 |
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 |