Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix array-any.

Browse source 
Closes #963.
This commit is contained in:
Alex Shinn 2024-05-25 22:05:59 +09:00
parent e492e4002f
commit afda4ab979
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lib/srfi/231/test.sld
View file

@ -1814,6 +1814,15 @@
list) list)
(make-array (make-interval '#(3 4) '#(4 5)) (make-array (make-interval '#(3 4) '#(4 5))
list))) list)))
(test-assert (array-any list?
(make-array (make-interval '#(3) '#(4))
list)))
(test-assert (array-any (lambda (x) (odd? (car x)))
(make-array (make-interval '#(3) '#(4))
list)))
(test-not (array-any (lambda (x) (even? (car x)))
(make-array (make-interval '#(3) '#(4))
list)))
;; (do ((i 0 (+ i 1))) ;; (do ((i 0 (+ i 1)))
;; ((= i tests)) ;; ((= i tests))

1
lib/srfi/231/transforms.scm
View file

@ -400,7 +400,6 @@
(lambda (return) (lambda (return)
(apply array-for-each (apply array-for-each
(lambda args (cond ((apply pred args) => return))) (lambda args (cond ((apply pred args) => return)))
#f
array array
arrays) arrays)
#f))) #f)))