This commit is contained in:
Bradley Lucier 2024-05-28 04:12:54 -04:00
parent 1dd84df451
commit ffc8bec1bf

View file

@ -393,7 +393,7 @@
(array? array)
(every array? arrays)
(every (lambda (a) (interval= (array-domain array) a)) arrays)))
(if (null? array)
(if (null? arrays)
(interval-fold-left (array-getter array)
(lambda (accumulator array-element)
(operator accumulator array-element))