mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Fix bug reading arrays with lengths

Browse source 
* module/ice-9/read.scm (%read): Fix typo.
This commit is contained in:
Andy Wingo 2021-03-02 14:29:34 +01:00
parent e4647a0ca8
commit d69062daf1
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

@ -500,7 +500,7 @@
(let lp ((ch ch) (chars '())) (let lp ((ch ch) (chars '()))
(when (eof-object? ch) (when (eof-object? ch)
(error "unexpected end of input while reading array")) (error "unexpected end of input while reading array"))
(if (memv ch '(#\( #\@ @\:)) (if (memv ch '(#\( #\@ #\:))
(values ch (values ch
(if (null? chars) (if (null? chars)
#t #t