pad-with-bottom ( seq -- newseq )

Vocabulary

stack-checker.branches

Inputs

seq

an object

Outputs

newseq

an object

Definition

USING: kernel sequences ;

IN: stack-checker.branches

: pad-with-bottom ( seq -- newseq )
    dup empty?
    [ dup longest length [ +bottom+ pad-head ] curry map ]
    unless ;