lloda schreef op do 25-11-2021 om 17:40 [+0100]:
[...]
Suggestion: add a few tests to test-suite/tests/arrays.test:
(pass-if-equal "new"
#t
(array-mutable? (make-array #f '(1 2) '(3 4))))
(pass-if-equal "empty (two-dimensional)"
#t
(array-mutable? (array-copy #1())))
(pass-if-equal "empty (two-dimensional)"
#t
(array-mutable? (array-copy #2(() ()))))
(pass-if-equal "immutable copy"
#f
(array-mutable? (immutable-array-copy #2((h) (h)))))
This requires a currently non-existent procedure ‘make-immutable-
array’, copying an array into a new immutable array.
Greetings,
Maxime