diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-30 19:26:21 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-30 19:26:21 +0000 |
commit | 197edeea976beda781ef9cd96a33cc24d3ac37ea (patch) | |
tree | 546e9b0960c49f49bab122271e28d16ac25b3bb9 /ice-9/arrays.scm | |
parent | 0147054b67356fc72211965b915884cb4cc3caf4 (diff) | |
download | guile-197edeea976beda781ef9cd96a33cc24d3ac37ea.tar.gz |
* Don't install a bitvector read-hash extension for letter 'b'.
Diffstat (limited to 'ice-9/arrays.scm')
-rw-r--r-- | ice-9/arrays.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ice-9/arrays.scm b/ice-9/arrays.scm index 7d249795e..b08de5e97 100644 --- a/ice-9/arrays.scm +++ b/ice-9/arrays.scm @@ -47,8 +47,8 @@ (for-each (lambda (char template) (read-hash-extend char (make-array-proc template))) - '(#\b #\a #\u #\e #\s #\i #\c #\y #\h #\l) - '(#t #\a 1 -1 1.0 1/3 0+i #\nul s l))) + '(#\a #\u #\e #\s #\i #\c #\y #\h #\l) + '(#\a 1 -1 1.0 1/3 0+i #\nul s l))) (let ((array-proc (lambda (c port) (read:array c port)))) |