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


Vocabulary
compiler.tree.propagation.call-effect

Inputs
wordan object
effectan 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