bump-effect-counter? ( -- ? )

Vocabulary

compiler.units.private

Inputs

None

Outputs

?

a boolean

Word description

Whether the REDEFINITION-COUNTER should be increased.

Definition

USING: arrays compiler.units definitions kernel namespaces
sequences sets ;

IN: compiler.units.private

: bump-effect-counter? ( -- ? )
    changed-effects get members maybe-changed get members
    changed-definitions get members
    [ always-bump-effect-counter? ] filter 3array
    union-all new-words get [ in? not ] curry any? ;