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
