vocabs.parser: sift the search-vocabs.

Because non-existing private vocabs are in the search-vocabs list.

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index 4249fe3c270ee8a959a298f213eaf41da9609ac4..a8e7e12a7015385d6333b1def998e9f15fe691ce 100644 (file)
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -192,7 +192,7 @@ TUPLE: ambiguous-use-error name words ;
     [ (vocab-search-qualified) ] [ (vocab-search) ] 2bi append ;
 
 : vocab-search ( name manifest -- word/f )
-    dupd search-vocabs>> (vocab-search-full) dup length {
+    dupd search-vocabs>> sift (vocab-search-full) dup length {
         { 0 [ 2drop f ] }
         { 1 [ first nip ] }
         [