execute-effect>quot ( effect -- quot )


Vocabulary
compiler.tree.propagation.call-effect

Inputs
effectan object


Outputs
quotan object


Definition
USING: kernel ;

IN: compiler.tree.propagation.call-effect

: execute-effect>quot ( effect -- quot )
inline-cache new [ [ [ drop ] ] dip ] dip
[ execute-effect-ic ] 2curry compose ;