From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 31 Dec 2021 03:48:00 +0000 (-0800)
Subject: vocabs.parser: change unuse-vocab to remove other forms.
X-Git-Tag: 0.99~2029
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=363d5684398ca37c6d99aa461d566e8facb21787

vocabs.parser: change unuse-vocab to remove other forms.
---

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index 63ca0ef78e..6fba66ffd7 100644
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -131,7 +131,13 @@ ERROR: unbalanced-private-declaration vocab ;
         manifest get
         [ [ load-vocab ] dip search-vocabs>> remove-eq! drop ]
         [ [ vocab-name ] dip search-vocab-names>> delete ]
-        2bi
+        [
+            [ vocab-name ] dip qualified-vocabs>> [
+                dup extra-words? [ 2drop f ] [
+                    dup vocab? [ vocab>> ] unless vocab-name =
+                ] if
+            ] with reject! drop
+        ] 2tri
     ] [ drop ] if ;
 
 TUPLE: qualified vocab prefix words ;