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

Properly check arguments to array-fold-{left|right}

Browse source
This commit is contained in:
Bradley Lucier 2024-05-28 04:18:03 -04:00
parent ffc8bec1bf
commit 581c037e0d
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -392,7 +392,10 @@
(assert (and (procedure? operator) (assert (and (procedure? operator)
(array? array) (array? array)
(every array? arrays) (every array? arrays)
(every (lambda (a) (interval= (array-domain array) a)) arrays))) (every (lambda (a)
(interval= (array-domain array)
(array-domain a)))
arrays)))
(if (null? arrays) (if (null? arrays)
(interval-fold-left (array-getter array) (interval-fold-left (array-getter array)
(lambda (accumulator array-element) (lambda (accumulator array-element)
@ -409,7 +412,10 @@
(assert (and (procedure? operator) (assert (and (procedure? operator)
(array? array) (array? array)
(every array? arrays) (every array? arrays)
(every (lambda (a) (interval= (array-domain array) a)) arrays))) (every (lambda (a)
(interval= (array-domain array)
(array-domain a)))
arrays)))
(if (null? arrays) (if (null? arrays)
(interval-fold-right (array-getter array) (interval-fold-right (array-getter array)
(lambda (array-element accumulator) (lambda (array-element accumulator)