(append) ( seq1 seq2 accum -- accum )


Vocabulary
sequences.private

Inputs
seq1an object
seq2an object
accuman object


Outputs
accuman object


Definition
USING: kernel sequences ;

IN: sequences.private

: (append) ( seq1 seq2 accum -- accum )
[ [ over length ] dip copy-unsafe ] [ 0 swap copy-unsafe ]
[ ] tri ; inline