summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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))