call-effect-slow>quot ( effect -- quot )

Vocabulary

compiler.tree.propagation.call-effect

Inputs

effect

an effect

Outputs

quot	a quotation

Word description

Creates a quotation which wraps call-effect-unsafe.

Definition

USING: accessors combinators combinators.private effects kernel
;

IN: compiler.tree.propagation.call-effect

: call-effect-slow>quot ( effect -- quot )
    [ \ call-effect def>> curry ] [ add-effect-input ] bi
    [ call-effect-unsafe ] 2curry ;