seq-lengthen ( seq n -- seq )


Vocabulary
sequences.seq

Inputs
seqan object
nan object


Outputs
seqan object


Definition
IN: sequences.seq

GENERIC#: seq-lengthen 1 ( seq n -- seq )


Methods
USING: kernel math sequences sequences.seq ;

M: sequence seq-lengthen
2dup lengthd < [ seq-set-length ] [ drop ] if ; inline