(simplify-call) ( #call -- new-word/f )

Vocabulary

compiler.tree.dead-code.simple

Inputs

#call

an object

Outputs

new-word/f

an object

Definition

USING: accessors kernel sequences words ;

IN: compiler.tree.dead-code.simple

: (simplify-call) ( #call -- new-word/f )
    [ out-d>> ] [ word>> "simplifications" word-prop ] bi
    [ first out-d-matches? ] with find nip dup [ second ] when ;