diff options
author | Andy Wingo <wingo@pobox.com> | 2021-03-02 14:29:34 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2021-03-02 14:29:34 +0100 |
commit | d69062daf1ac51f583155016c4aed5f72d59158d (patch) | |
tree | 7e10b774aa9517cedfb22983efee75b2ee470042 /module | |
parent | e4647a0ca862bd1774e6e7d0d380da2de9f6386c (diff) | |
download | guile-d69062daf1ac51f583155016c4aed5f72d59158d.tar.gz |
Fix bug reading arrays with lengths
* module/ice-9/read.scm (%read): Fix typo.
Diffstat (limited to 'module')
-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 74f567dd5..29175d54c 100644 --- a/module/ice-9/read.scm +++ b/module/ice-9/read.scm @@ -500,7 +500,7 @@ (let lp ((ch ch) (chars '())) (when (eof-object? ch) (error "unexpected end of input while reading array")) - (if (memv ch '(#\( #\@ @\:)) + (if (memv ch '(#\( #\@ #\:)) (values ch (if (null? chars) #t |