diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-10-29 14:47:15 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-10-29 14:47:15 +0000 |
commit | 81975bee33ea9e394861f3cce49b86923a4d659c (patch) | |
tree | 9b537a1b7edabb7d658ab4a1353257b6f27793a5 | |
parent | eb42ff2564fdfde5e4dea46acf6f8620e21736cb (diff) | |
download | guile-81975bee33ea9e394861f3cce49b86923a4d659c.tar.gz |
Do not install read-hash procedure for reading arrays, this is done in
libguile now.
-rw-r--r-- | ice-9/arrays.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/ice-9/arrays.scm b/ice-9/arrays.scm index 7562a2286..87c70fb88 100644 --- a/ice-9/arrays.scm +++ b/ice-9/arrays.scm @@ -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)) |