reload-definitions ( -- )

Vocabulary

lint.private

Inputs

None

Outputs

None

Definition

USING: accessors assocs kernel namespaces quotations sequences ;

IN: lint.private

: reload-definitions ( -- )
    lintable-words load-definitions
    [ [ [ def>> ] [ 1quotation ] bi = ] reject ] assoc-map
    manual-substitutions over [ push-at ] curry assoc-each
    [ lint-definitions set-global ]
    [ keys lint-definitions-keys set-global ] bi ;