diff options
-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 |