execute-effect>quot ( effect -- quot )

Vocabulary

compiler.tree.propagation.call-effect

Inputs

effect

an object

Outputs

quot

an 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 ;