vocabs: support qualified lookups in no-word restarts.

diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor
index 66f706eac72c9489b9f83549eb822f53f30c2b36..29530f89968025206c39971042803539dd2c891e 100644 (file)
--- a/core/vocabs/vocabs.factor
+++ b/core/vocabs/vocabs.factor
@@ -100,9 +100,12 @@ ERROR: no-vocab name ;
     dictionary get values [ vocab-words ] map concat ;
 
 : words-named ( str -- seq )
-    dictionary get values
-    [ vocab-words-assoc at ] with map
-    sift ;
+    dictionary get
+    [ values [ vocab-words-assoc at ] with map sift ]
+    [
+        [ ":" split1 swap ] dip at
+        [ vocab-words-assoc at suffix ] [ drop ] if*
+    ] 2bi ;
 
 : child-vocab? ( prefix name -- ? )
     swap [ drop t ] [