mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Fix reading #c32 vectors

Browse source 
* module/ice-9/read.scm (%read): Fix a wee typo.
This commit is contained in:
Andy Wingo 2021-03-03 22:59:27 +01:00
parent ea86a5c6d2
commit eb5ffda6ce
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

@ -595,7 +595,7 @@
(case ch (case ch
((#\\) (read-character)) ((#\\) (read-character))
((#\() (read-vector)) ((#\() (read-vector))
((#\s #\u \c) (read-srfi-4-vector ch)) ((#\s #\u #\c) (read-srfi-4-vector ch))
((#\f) (read-false-or-srfi-4-vector)) ((#\f) (read-false-or-srfi-4-vector))
((#\v) (read-bytevector)) ((#\v) (read-bytevector))
((#\*) (read-bitvector)) ((#\*) (read-bitvector))