restore-dictionary ( -- )

Vocabulary

lint.vocabs.private

Inputs

None

Outputs

None

Definition

USING: assocs compiler.units hash-sets namespaces sequences sets
vocabs ;

IN: lint.vocabs.private

: restore-dictionary ( -- )
    dictionary get keys >hash-set old-dictionary get keys
    >hash-set diff members
    [ [ forget-vocab ] each ] with-compilation-unit ;