bump-effect-counter ( -- )

Vocabulary

compiler.units.private

Inputs

None

Outputs

None

Definition

USING: kernel kernel.private math ;

IN: compiler.units.private

: bump-effect-counter ( -- )
    bump-effect-counter? [
        REDEFINITION-COUNTER special-object 0 or 1 +
        REDEFINITION-COUNTER set-special-object
    ] when ;