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 quotation-like? ] [ '[ @ neg ] ] }
        [ '[ _ neg ] ]
    } cond ;