simplify-to-constant ( #call constant -- nodes )

Vocabulary

compiler.tree.identities

Inputs

#call	an object
constant	an object

Outputs

nodes

an object

Definition

USING: accessors arrays compiler.tree kernel sequences ;

IN: compiler.tree.identities

: simplify-to-constant ( #call constant -- nodes )
    [ [ in-d>> <#drop> ] [ out-d>> first ] bi ] dip swap <#push>
    2array ;