pad-tail-shorter ( seq1 seq2 elt -- seq1' seq2' )

Vocabulary

compiler.utilities

Inputs

seq1	a sequence
seq2	a sequence
elt	an object

Outputs

seq1'	a sequence
seq2'	a sequence

Word description

Pads the tail of the shorter sequence so that both sequences have the same length.

Definition

USING: kernel sequences ;

IN: compiler.utilities

: pad-tail-shorter ( seq1 seq2 elt -- seq1' seq2' )
    2over longer length swap [ pad-tail ] 2curry bi@ ;