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


Vocabulary
compiler.utilities

Inputs
seq1a sequence
seq2a sequence
eltan 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@ ;