From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 19 Jun 2022 16:07:37 +0000 (-0700)
Subject: tools.completion: don't search qualified if no string provided
X-Git-Tag: 0.99~1365^2~2
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=26f012c16e99f8ddb62d68ef120c9a64a881a01b

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 822a51be2d..c0b87f246a 100644
--- 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 ;