From a50a53f89acc595d045c5a35c5e94e8694cc3d3c Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Wed, 29 Dec 2004 18:33:33 +0000 Subject: [PATCH] (make-array, list->array): Removed. (uniform-vector-fill!): Prepared to be deprecated. --- ice-9/arrays.scm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/ice-9/arrays.scm b/ice-9/arrays.scm index 887782961..5e92a2f0b 100644 --- a/ice-9/arrays.scm +++ b/ice-9/arrays.scm @@ -18,18 +18,14 @@ ;;;; Boston, MA 02111-1307 USA ;;;; -(define uniform-vector-fill! array-fill!) - -(define (make-array fill . args) - (dimensions->uniform-array args make-vector fill)) -(define (list->array ndim lst) - (list->uniform-array ndim make-vector lst)) (define (array-shape a) (map (lambda (ind) (if (number? ind) (list 0 (+ -1 ind)) ind)) (array-dimensions a))) ;; deprecated +(define uniform-vector-fill! array-fill!) + (define make-uniform-vector dimensions->uniform-array) (define (make-uniform-array prot . args)