mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

(make-array, list->array): Removed.

Browse source 
(uniform-vector-fill!): Prepared to be deprecated.
This commit is contained in:
Marius Vollmer 2004-12-29 18:33:33 +00:00
parent d7f6cbd955
commit a50a53f89a
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ice-9/arrays.scm
View file

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