diff options
-rw-r--r-- | ice-9/arrays.scm | 14 |
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))) |