select-normalized-input ( node n -- node' )

Vocabulary

compiler.tree.identities

Inputs

node	an object
n	an object

Outputs

node'

an object

Definition

USING: accessors classes.algebra compiler.tree.propagation.info
kernel math sequences ;

IN: compiler.tree.identities

: select-normalized-input ( node n -- node' )
    2dup [ node-input-infos ] dip swap nth
    class>> bignum classes-intersect?
    [ drop ] [ select-input ] if ;