recursive-eval ( ast -- left-result right-result )

Vocabulary

rosetta-code.arithmetic-evaluation

Inputs

ast

an object

Outputs

left-result	an object
right-result	an object

Definition

USING: accessors kernel ;

IN: rosetta-code.arithmetic-evaluation

: recursive-eval ( ast -- left-result right-result )
    [ left>> eval-ast ] [ right>> eval-ast ] bi ;