mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-13 17:20:21 +02:00
Code Activity

("vector equal? one-dimensional array"): New.

Browse source
This commit is contained in:
Marius Vollmer 2006-05-29 21:40:18 +00:00
parent a3f15eb67c
commit 07c0e15999
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/tests/unif.test
View file

@ -512,3 +512,11 @@
(begin (begin
(array-set! a -128 0) (array-set! a -128 0)
(= -128 (uniform-vector-ref a 0))))))) (= -128 (uniform-vector-ref a 0)))))))
;;; equal? with vector and one-dimensional array
(pass-if "vector equal? one-dimensional array"
(equal? (make-shared-array #2((a b c) (d e f) (g h i))
(lambda (i) (list i i))
'(0 2))
#(a e i)))