IN: growable

GENERIC: contract ( len seq -- )

USING: bit-vectors growable kernel ;

M: bit-vector contract 2drop ;

USING: growable kernel
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector contract 2drop ; inline

USING: byte-vectors growable kernel ;

M: byte-vector contract 2drop ; inline

USING: growable kernel math sequences sequences.private ;

M: growable contract
[ length ] keep [ [ 0 ] 2dip set-nth-unsafe ] curry
(each-integer) ; inline

USING: growable kernel
specialized-vectors.instances.alien.c-types.short ;

M: short-vector contract 2drop ; inline

USING: growable kernel
specialized-vectors.instances.alien.c-types.uint ;

M: uint-vector contract 2drop ; inline