tools.completion: don't search qualified if no string provided

diff --git a/basis/tools/completion/completion.factor b/basis/tools/completion/completion.factor
index 822a51be2d560b219ec5887ebd34ad4db59bfd10..c0b87f246a3dd1ce293bb7bea2d1893afdb81317 100644 (file)
--- a/basis/tools/completion/completion.factor
+++ b/basis/tools/completion/completion.factor
@@ -86,12 +86,12 @@ PRIVATE>
     vocab-words named completions ;
 
 : qualified-named ( str -- seq/f )
-    ":" split1 [
-        drop vocabs-matching keys [
+    ":" split1 drop [ f ] [
+        vocabs-matching keys [
             [ vocab-words ] [ vocab-name ] bi ":" append
             [ over name>> append ] curry { } map>assoc
         ] map concat
-    ] [ drop f ] if* ;
+    ] if-empty ;
 
 : words-matching ( str -- seq )
     all-words named over qualified-named [ append ] unless-empty completions ;