ast-negation

Vocabulary

infix.ast

Definition

IN: infix.ast

TUPLE: ast-negation term ;

Methods

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

M: ast-negation infix-codegen
    term>> infix-codegen {
        { [ dup number? ] [ neg ] }
        { [ dup callable? ] [ [ neg ] compose ] }
        [ [ neg ] curry ]
    } cond ;