mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* Don't install a bitvector read-hash extension for letter 'b'.

Browse source
This commit is contained in:
Dirk Herrmann 2001-06-30 19:26:21 +00:00
parent 0147054b67
commit 197edeea97
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
View file

@ -1,3 +1,9 @@
2001-06-30 Dirk Herrmann <D.Herrmann@tu-bs.de>
* arrays.scm: Don't install a read-hash-extension for 'b': #b
is already defined by R5RS. Further, there is already a working
read syntax for bitvectors, starting with #*.
2001-06-30 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
* Makefile.am (ice9_sources): Removed tags.scm.

4
ice-9/arrays.scm
View file

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