vocabs.parser: adding back unuse-words.

diff --git a/core/vocabs/parser/parser-docs.factor b/core/vocabs/parser/parser-docs.factor
index 9e58c0f89d188e7ae80309f1b61112f84f2994ae..3a59a59e52c476f08ceff2fc7a78ead58ae40695 100644 (file)
--- a/core/vocabs/parser/parser-docs.factor
+++ b/core/vocabs/parser/parser-docs.factor
@@ -163,8 +163,11 @@ HELP: add-renamed-word
 
 HELP: use-words
 { $values { "assoc" assoc } }
-{ $description "Adds an assoc mapping word names to words to the current manifest." }
-{ $notes "This word is used by " { $link "locals" } " to implement lexically-scoped names." } ;
+{ $description "Adds an assoc mapping word names to words to the current manifest." } ;
+
+HELP: unuse-words
+{ $values { "assoc" assoc } }
+{ $description "Removes an assoc mapping word names to words from the current manifest." } ;
 
 HELP: ambiguous-use-error
 { $error-description "Thrown when a word name referenced in source file is available in more than one vocabulary in the manifest. Such cases must be explicitly disambiguated using " { $link POSTPONE: FROM: } ", " { $link POSTPONE: EXCLUDE: } ", " { $link POSTPONE: QUALIFIED: } ", or " { $link POSTPONE: QUALIFIED-WITH: } "." } ;

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index a4f59bdc61b9e64cfdfe1dfbcff4259bd69b6c7e..3751db3fba33f654b6652703263a06294ecd9ef9 100644 (file)
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -170,6 +170,9 @@ TUPLE: rename word vocab words ;
 : use-words ( assoc -- )
     <extra-words> qualified-vocabs push ;
 
+: unuse-words ( assoc -- )
+    <extra-words> qualified-vocabs remove! drop ;
+
 TUPLE: ambiguous-use-error words ;
 
 : <ambiguous-use-error> ( words -- error restarts )