From 581c037e0dcbe52cec2c2a374e9ccdd1d2dbf2e4 Mon Sep 17 00:00:00 2001 From: Bradley Lucier Date: Tue, 28 May 2024 04:18:03 -0400 Subject: [PATCH] Properly check arguments to array-fold-{left|right} --- lib/srfi/231/transforms.scm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lib/srfi/231/transforms.scm b/lib/srfi/231/transforms.scm index 853262ad..ab6c4776 100644 --- a/lib/srfi/231/transforms.scm +++ b/lib/srfi/231/transforms.scm @@ -392,7 +392,10 @@ (assert (and (procedure? operator) (array? array) (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) (interval-fold-left (array-getter array) (lambda (accumulator array-element) @@ -409,7 +412,10 @@ (assert (and (procedure? operator) (array? array) (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) (interval-fold-right (array-getter array) (lambda (array-element accumulator)