seq-grow-copy ( dst n -- dst dst-n )


Vocabulary
sequences.seq

Inputs
dstan object
nan object


Outputs
dstan object
dst-nan object


Definition
USING: kernel math sequences ;

IN: sequences.seq

: seq-grow-copy ( dst n -- dst dst-n )
[ over length + seq-lengthen ] keep 1 - ; inline