From 09a5c431a2581d3487bb077cbdfcfba0b5afb636 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 24 May 2024 19:35:33 +0900 Subject: [PATCH] array-tile widths can exceed the axis width Closes #958. --- lib/srfi/231/test.sld | 6 ++++++ lib/srfi/231/transforms.scm | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lib/srfi/231/test.sld b/lib/srfi/231/test.sld index 94962089..794b5627 100644 --- a/lib/srfi/231/test.sld +++ b/lib/srfi/231/test.sld @@ -2982,6 +2982,12 @@ (test-error (array-tile (make-array (make-interval '#(0 0) '#(10 10)) list) '#(10))) + (test-assert + (array-tile (make-array (make-interval '#(0 0) '#(10 10)) list) + '#(10 20))) + (test-error + (array-tile (make-array (make-interval '#(0 0) '#(10 10)) list) + '#(-10 20))) (let* ((TA '(( 1 2 3 4 5 6) ( 7 8 9 10 11 12) diff --git a/lib/srfi/231/transforms.scm b/lib/srfi/231/transforms.scm index a53ac724..ae081b43 100644 --- a/lib/srfi/231/transforms.scm +++ b/lib/srfi/231/transforms.scm @@ -160,7 +160,7 @@ (assert (vector-every (lambda (s len) (if (exact-integer? s) - (<= s len) + (positive? s) (= (vector-fold + 0 s) len))) sizes (interval-widths (array-domain array))))