mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fix reading neoteric exprs in Scheme reader

Browse source 
* module/ice-9/read.scm (%read): Call the inner reader, not the outer
reader.
This commit is contained in:
Andy Wingo 2021-03-03 16:20:24 +01:00
parent 816c8d23a1
commit dba7669077
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/read.scm
View file

@ -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