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))) (list->vector (array->list array)))
(define (vector->array domain vec . o) (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) (define (array-assign! destination source)
(assert (and (mutable-array? destination) (array? source) (assert (and (mutable-array? destination) (array? source)