definitions-changed ( set obj -- )

Vocabulary

compiler.units

Inputs

set	an object
obj	an object

Outputs

None

Definition

IN: compiler.units

GENERIC: definitions-changed ( set obj -- )

Methods

USING: compiler.units kernel ui.gadgets ui.tools.browser
ui.tools.browser.history ;

M: browser-gadget definitions-changed
    [ control-value swap showing-definition? ] keep
    [ [ history-value ] keep set-history-value ] curry when ;


USING: compiler.units kernel sequences tools.deprecation words ;

M: deprecation-observer definitions-changed
    drop filter-word-defs dup [ deprecated? ] none?
    [ [ check-deprecations ] each ]
    [ drop initialize-deprecation-notes ] if ;


USING: combinators.short-circuit compiler.units kernel
namespaces sets tools.crossref tools.crossref.private ;

M: invalidate-crossref definitions-changed
    drop { [ null? not ] [ not ] } 1||
    [ f crossref set-global ] when ;


USING: compiler.units kernel vocabs.parser vocabs.parser.private
;

M: manifest definitions-changed nip update-manifest drop ;


USING: accessors compiler.units compiler.units.private kernel
sequences sets ;

M: nesting-observer definitions-changed
    [ members ] dip new-words>> [ delete ] curry each ;