(balance-by) ( effect n -- effect' )

Vocabulary

stack-checker.row-polymorphism

Inputs

effect	an object
n	an object

Outputs

effect'

an object

Definition

USING: accessors arrays effects kernel sequences ;

IN: stack-checker.row-polymorphism

: (balance-by) ( effect n -- effect' )
    "x" <array> swap
    [ in>> append ] [ out>> append ] [ nip terminated?>> ] 2tri
    <terminated-effect> ;