push-all-unsafe ( from to src dst -- )

Vocabulary

growable.private

Inputs

from	an object
to	an object
src	an object
dst	an object

Outputs

None

Definition

USING: accessors kernel math math.private sequences
sequences.private ;

IN: growable.private

: push-all-unsafe ( from to src dst -- )
    [ over - swap ] 2dip pickd
    [ length integer>fixnum-strict ] keep
    [ [ fixnum+fast ] dip length<< ] 2keep <copier> (copy) drop
    ; inline