summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ice-9/arrays.scm14
1 files changed, 8 insertions, 6 deletions
diff --git a/ice-9/arrays.scm b/ice-9/arrays.scm
index 5e92a2f0b..3e92931db 100644
--- a/ice-9/arrays.scm
+++ b/ice-9/arrays.scm
@@ -24,12 +24,14 @@
;; deprecated
-(define uniform-vector-fill! array-fill!)
+(begin-deprecated
-(define make-uniform-vector dimensions->uniform-array)
+ (define uniform-vector-fill! array-fill!)
-(define (make-uniform-array prot . args)
- (dimensions->uniform-array args prot))
+ (define make-uniform-vector dimensions->uniform-array)
-(define (list->uniform-vector prot lst)
- (list->uniform-array 1 prot lst))
+ (define (make-uniform-array prot . args)
+ (dimensions->uniform-array args prot))
+
+ (define (list->uniform-vector prot lst)
+ (list->uniform-array 1 prot lst)))