call-effect>quot ( effect -- quot )

Vocabulary

compiler.tree.propagation.call-effect

Inputs

effect

an effect

Outputs

quot	a quotation

Word description

Emits a quotation for calling a quotation with the given stack effect.

Definition

USING: kernel ;

IN: compiler.tree.propagation.call-effect

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