vector->array fix for optional args

Closes #968

Thanks Bradley Lucier!
This commit is contained in:
Alex Shinn 2024-05-27 09:25:39 +09:00
parent db53df7df4
commit 2f32ec6ba1

View file

@ -449,7 +449,7 @@
(list->vector (array->list array)))
(define (vector->array domain vec . o)
(apply list->array domain (vector->list vec o)))
(apply list->array domain (vector->list vec) o))
(define (array-assign! destination source)
(assert (and (mutable-array? destination) (array? source)