From d030cad861a94a34fa38065bcab9d32bbe576321 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sun, 2 Jan 2005 21:00:43 +0000
Subject: [PATCH] (uniform-vector-fill!, make-uniform-vector,
 make-uniform-array,list->uniform-array): Deprecated for real.

---
 ice-9/arrays.scm | 14 ++++++++------
 1 file 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)))