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

array-reduce should fail for empty arrays

Browse source 
Closes #964.
This commit is contained in:
Alex Shinn 2024-05-26 21:58:00 +09:00
parent f4add6d188
commit c96b0123a0
2 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -2083,6 +2083,7 @@
;; result-array-2) ;; result-array-2)
;; result)))))))) ;; result))))))))
(test-error (array-reduce + (make-array (make-interval '#(0)) list)))
(test-error (array-reduce 'a 'a)) (test-error (array-reduce 'a 'a))
(test-error (array-reduce 'a (make-array (make-interval '#(1) '#(3)) (test-error (array-reduce 'a (make-array (make-interval '#(1) '#(3))
list))) list)))

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

@ -386,6 +386,7 @@
(let* ((domain (array-domain array)) (let* ((domain (array-domain array))
(init-index (interval-lower-bounds->list domain)) (init-index (interval-lower-bounds->list domain))
(knil (list 'first-element))) (knil (list 'first-element)))
(assert (not (interval-empty? domain)))
(interval-fold (interval-fold
(lambda (acc . multi-index) (lambda (acc . multi-index)
(if (eq? acc knil) (if (eq? acc knil)