summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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