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

array-tile widths can exceed the axis width

Browse source 
Closes #958.
This commit is contained in:
Alex Shinn 2024-05-24 19:35:33 +09:00
parent 33a59952a8
commit 09a5c431a2
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/srfi/231/test.sld
View file

@ -2982,6 +2982,12 @@
(test-error (test-error
(array-tile (make-array (make-interval '#(0 0) '#(10 10)) list) (array-tile (make-array (make-interval '#(0 0) '#(10 10)) list)
'#(10))) '#(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) (let* ((TA '(( 1 2 3 4 5 6)
( 7 8 9 10 11 12) ( 7 8 9 10 11 12)

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

@ -160,7 +160,7 @@
(assert (assert
(vector-every (lambda (s len) (vector-every (lambda (s len)
(if (exact-integer? s) (if (exact-integer? s)
(<= s len) (positive? s)
(= (vector-fold + 0 s) len))) (= (vector-fold + 0 s) len)))
sizes sizes
(interval-widths (array-domain array)))) (interval-widths (array-domain array))))