mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 13:20:26 +02:00
Code Activity

Do not install read-hash procedure for reading arrays, this is done in

Browse source 
libguile now.
This commit is contained in:
Marius Vollmer 2004-10-29 14:47:15 +00:00
parent eb42ff2564
commit 81975bee33
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

24
ice-9/arrays.scm
View file

@ -36,19 +36,19 @@
(map (lambda (ind) (if (number? ind) (list 0 (+ -1 ind)) ind))
(array-dimensions a)))
(let ((make-array-proc (lambda (template)
(lambda (c port)
(read:uniform-vector template port)))))
(for-each (lambda (char template)
(read-hash-extend char
(make-array-proc template)))
'(#\a #\u #\e #\s #\i #\c #\y #\h #\l)
'(#\a 1 -1 1.0 1/3 0+i #\nul s l)))
; (let ((make-array-proc (lambda (template)
; (lambda (c port)
; (read:uniform-vector template port)))))
; (for-each (lambda (char template)
; (read-hash-extend char
; (make-array-proc template)))
; '(#\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))))
(for-each (lambda (char) (read-hash-extend char array-proc))
'(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)))
; (let ((array-proc (lambda (c port)
; (read:array c port))))
; (for-each (lambda (char) (read-hash-extend char array-proc))
; '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)))
(define (read:array digit port)
(define chr0 (char->integer #\0))