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

update test

Browse source
This commit is contained in:
Alex Shinn 2022-06-12 16:11:16 +09:00
parent 38fc7e0932
commit 54d3aafc7b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -2496,8 +2496,8 @@ OTHER DEALINGS IN THE SOFTWARE.
(array->list* (make-array (make-interval '#(0 0)) error))) (array->list* (make-array (make-interval '#(0 0)) error)))
(test '(() ()) (test '(() ())
(array->list* (make-array (make-interval '#(2 0)) error))) (array->list* (make-array (make-interval '#(2 0)) error)))
;; (test '(()) (test '()
;; (array->list* (make-array (make-interval '#(0 2)) error))) (array->list* (make-array (make-interval '#(0 2)) error)))
(test 2 ;; no vector (test 2 ;; no vector
(array->vector* (make-array (make-interval '#()) (lambda () 2)))) (array->vector* (make-array (make-interval '#()) (lambda () 2))))