mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

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

Browse source 
make-uniform-array,list->uniform-array): Deprecated for real.
This commit is contained in:
Marius Vollmer 2005-01-02 21:00:43 +00:00
parent c34e5780b0
commit d030cad861
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
ice-9/arrays.scm
View file

@ -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)))