(seq-append) ( accum seq1 seq2 -- accum )


Vocabulary
sequences.seq.private

Inputs
accuman object
seq1an object
seq2an object


Outputs
accuman object


Definition
USING: kernel sequences sequences.seq ;

IN: sequences.seq.private

: (seq-append) ( accum seq1 seq2 -- accum )
[ [ 0 ] dip [ seq-copy-unsafe ] [ length ] bi ] dip
seq-copy-unsafe ; inline