From ffc8bec1bf8ad920ce844e6867934c15ec206fa9 Mon Sep 17 00:00:00 2001 From: Bradley Lucier Date: Tue, 28 May 2024 04:12:54 -0400 Subject: [PATCH] Fix typo --- lib/srfi/231/transforms.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/srfi/231/transforms.scm b/lib/srfi/231/transforms.scm index 90b868f5..853262ad 100644 --- a/lib/srfi/231/transforms.scm +++ b/lib/srfi/231/transforms.scm @@ -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))