unuse-vocab ( vocab -- )
Factor handbook » The language » Parsing words » Reflection support for vocabulary search path

Prev:	use-vocab ( vocab -- )
Next:	add-qualified ( vocab prefix -- )

Vocabulary
vocabs.parser

Inputs

vocab

a vocabulary specifier

Outputs
None

Word description
Removes a vocabulary from the current manifest.

Notes
This word is used to implement UNUSE:.

Definition

USING: accessors kernel namespaces sequences sets vocabs ;

IN: vocabs.parser

: unuse-vocab ( vocab -- )
    dup using-vocab? [
        manifest get
        [ [ load-vocab ] dip search-vocabs>> remove-eq! drop ]
        [ [ vocab-name ] dip search-vocab-names>> delete ] [
            [ vocab-name ] dip qualified-vocabs>> [
                dup extra-words?
                [ 2drop f ]
                [ dup vocab? [ vocab>> ] unless vocab-name = ]
                if
            ] with reject! drop
        ] 2tri
    ] [ drop ] if ;