save-effect ( effect quot -- )

Vocabulary

compiler.tree.propagation.call-effect

Inputs

effect	an object
quot	an object

Outputs

None

Definition

USING: accessors compiler.units kernel ;

IN: compiler.tree.propagation.call-effect

: save-effect ( effect quot -- )
    swap >>cached-effect effect-counter >>cache-counter drop ;