From afda4ab979d837cacaacbcb3fdc185ea74aa49c7 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 25 May 2024 22:05:59 +0900 Subject: [PATCH] Fix array-any. Closes #963. --- lib/srfi/231/test.sld | 9 +++++++++ lib/srfi/231/transforms.scm | 1 - 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lib/srfi/231/test.sld b/lib/srfi/231/test.sld index 4472a228..10c7954a 100644 --- a/lib/srfi/231/test.sld +++ b/lib/srfi/231/test.sld @@ -1814,6 +1814,15 @@ list) (make-array (make-interval '#(3 4) '#(4 5)) 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))) ;; ((= i tests)) diff --git a/lib/srfi/231/transforms.scm b/lib/srfi/231/transforms.scm index ae081b43..a85fd260 100644 --- a/lib/srfi/231/transforms.scm +++ b/lib/srfi/231/transforms.scm @@ -400,7 +400,6 @@ (lambda (return) (apply array-for-each (lambda args (cond ((apply pred args) => return))) - #f array arrays) #f)))