apply-identities* ( node -- node )

Vocabulary

compiler.tree.identities

Inputs

node

an object

Outputs

node

an object

Definition

IN: compiler.tree.identities

GENERIC: apply-identities* ( node -- node )

Methods

USING: accessors combinators compiler.tree
compiler.tree.identities compiler.tree.propagation.info kernel
words ;

M: #call apply-identities*
    dup word>> "identities" word-prop [
        over node-input-infos find-identity [
            {
                { \ drop [ 0 select-input ] }
                { \ nip [ 1 select-input ] }
                [ simplify-to-constant ]
            } case
        ] when*
    ] when* ;


USING: compiler.tree compiler.tree.identities ;

M: node apply-identities* ;