resize-if-necessary ( wanted-n got-n seq -- seq' )


Vocabulary
io.private

Inputs
wanted-nan object
got-nan object
seqan object


Outputs
seq'an object


Definition
USING: kernel sequences.private ;

IN: io.private

: resize-if-necessary ( wanted-n got-n seq -- seq' )
2over = [ 2nip ] [ resize nip ] if ; inline