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

* boot-9.scm: Added extended read syntax for byte vectors #y(...)

Browse source 
and short vectors #h(...).
This commit is contained in:
Mikael Djurfeldt 1998-10-18 12:41:43 +00:00
parent 1aab20acfb
commit c8f11b9756
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
1998-10-18 Mikael Djurfeldt <mdj@barbara.nada.kth.se>
* boot-9.scm: Added extended read syntax for byte vectors #y(...)
and short vectors #h(...).
1998-10-14 Jim Blandy <jimb@zwingli.cygnus.com> 1998-10-14 Jim Blandy <jimb@zwingli.cygnus.com>
* calling.scm (excursion-function-syntax): Use a sequence of * calling.scm (excursion-function-syntax): Use a sequence of

4
ice-9/boot-9.scm
View file

@ -1050,8 +1050,8 @@
(for-each (lambda (char template) (for-each (lambda (char template)
(read-hash-extend char (read-hash-extend char
(make-array-proc template))) (make-array-proc template)))
'(#\b #\a #\u #\e #\s #\i #\c) '(#\b #\a #\u #\e #\s #\i #\c #\y #\h)
'(#t #\a 1 -1 1.0 1/3 0+i))) '(#t #\a 1 -1 1.0 1/3 0+i #\nul s)))
(let ((array-proc (lambda (c port) (let ((array-proc (lambda (c port)
(read:array c port)))) (read:array c port))))
(for-each (lambda (char) (read-hash-extend char array-proc)) (for-each (lambda (char) (read-hash-extend char array-proc))