balance-actual ( declared actual -- declared actual' )

Vocabulary

stack-checker.row-polymorphism

Inputs

declared	an object
actual	an object

Outputs

declared	an object
actual'	an object

Definition

USING: kernel ;

IN: stack-checker.row-polymorphism

: balance-actual ( declared actual -- declared actual' )
    2dup (balance-actual-depth) [ (balance-by) ] when* ;