summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-10-29 14:47:15 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-10-29 14:47:15 +0000
commit81975bee33ea9e394861f3cce49b86923a4d659c (patch)
tree9b537a1b7edabb7d658ab4a1353257b6f27793a5
parenteb42ff2564fdfde5e4dea46acf6f8620e21736cb (diff)
downloadguile-81975bee33ea9e394861f3cce49b86923a4d659c.tar.gz
Do not install read-hash procedure for reading arrays, this is done in
libguile now.
-rw-r--r--ice-9/arrays.scm24
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))