push-unsafe ( elt seq -- )


Vocabulary
growable.private

Inputs
eltan object
seqan object


Outputs
None

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

IN: growable.private

: push-unsafe ( elt seq -- )
[ length integer>fixnum-strict ] keep
[ set-nth-unsafe ] [ [ 1 fixnum+fast ] dip length<< ] 2bi ;
inline