check-variables ( vars declared actual -- ? )

Vocabulary

stack-checker.row-polymorphism

Inputs

vars	an object
declared	an object
actual	an object

Outputs

?

an object

Definition

USING: accessors kernel ;

IN: stack-checker.row-polymorphism

: check-variables ( vars declared actual -- ? )
    dup terminated?>> [ 3drop t ] [ (check-variables) ] if ;