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