FUNCTOR: define-vector ( T -- )
A IS ${T}-array
IS
V DEFINES ${T}-vector
DEFINES <${V}>
>V DEFINES >${V}
V{ DEFINES ${V}{
IN
`TUPLE: V { underlying A } { length array-capacity } ;
`: execute 0 V boa ; `inline
`M: V like
drop dup V instance? [
dup A instance? [ dup length V boa ] [ >V ] if
] unless ;
`M: V new-sequence drop [ ] [ >fixnum ] bi V boa ;
`M: A new-resizable drop ;
;FUNCTOR