raise-row ( row amount vars -- ? )

Vocabulary

stack-checker.row-polymorphism.private

Inputs

row	an object
amount	an object
vars	an object

Outputs

?

an object

Definition

USING: accessors assocs kernel math sequences ;

IN: stack-checker.row-polymorphism.private

:: raise-row ( row amount vars -- ? )
    amount 0 <=
    [ t ] [
        row group>> :> group f vars get-row group>> group eq?
        [ f ] [
            vars values [| other |
                other group>> group eq?
                [ other [ amount + ] change-height drop ] when
            ] each t
        ] if
    ] if ;