execute-effect-unsafe? ( word effect -- ? )

Vocabulary

compiler.tree.propagation.call-effect

Inputs

word	an object
effect	an object

Outputs

?

an object

Definition

USING: effects kernel kernel.private words ;

IN: compiler.tree.propagation.call-effect

: execute-effect-unsafe? ( word effect -- ? )
    over word-optimized?
    [ [ stack-effect { effect } declare ] dip effect<= ]
    [ 2drop f ] if ; inline