(uniform-vector-fill!, make-uniform-vector,

make-uniform-array,list->uniform-array): Deprecated for real.

diff --git a/ice-9/arrays.scm b/ice-9/arrays.scm
index 5e92a2f..3e92931 100644 (file)
--- 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)))