ast-op

Vocabulary

infix.ast

Definition

IN: infix.ast

TUPLE: ast-op left right op ;

Methods

USING: accessors combinators infix.ast infix.private kernel math
;

M: ast-op infix-codegen
    [ left>> infix-codegen ] [ right>> infix-codegen ]
    [ op>> select-op ] tri 2over [ number? ] both?
    [ ( a b -- c ) call-effect ]
    [ [ [ prepare-operand ] bi@ ] dip [ compose ] dip compose ]
    if ;