ui.tools.listener.completion: make sure "IN:<Ctrl-h>" works.

diff --git a/basis/ui/tools/listener/completion/completion-tests.factor b/basis/ui/tools/listener/completion/completion-tests.factor
index ba3a045460605bf77f8ec7e8e816980d3592f9b5..538f2618193eeb8f0b3ad952262a502e4fc7f364 100644 (file)
--- a/basis/ui/tools/listener/completion/completion-tests.factor
+++ b/basis/ui/tools/listener/completion/completion-tests.factor
@@ -11,7 +11,9 @@ IN: ui.tools.listener.completion.tests
 
 [ t ] [ { "USE:" "A" } complete-vocab? ] unit-test
 
-[ t ] [ { "USE:" } complete-vocab? ] unit-test
+[ t ] [ { "USE:" "" } complete-vocab? ] unit-test
+
+[ f ] [ { "USE:" } complete-vocab? ] unit-test
 
 [ t ] [ { "UNUSE:" "A" } complete-vocab? ] unit-test
 

diff --git a/basis/ui/tools/listener/completion/completion.factor b/basis/ui/tools/listener/completion/completion.factor
index 944d58a75dd7890876391180aaf298402de2ac48..ebe1411e46faaceaac64ee0d52eeac849ce688f3 100644 (file)
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@@ -83,8 +83,8 @@ M: vocab-completion row-color
     dup last empty? [
         harvest ?last (complete-vocab?)
     ] [
-        harvest 2 short tail*
-        [ f ] [ [ (complete-vocab?) ] any? ] if-empty
+        harvest dup length 1 >
+        [ 2 tail* ?first (complete-vocab?) ] [ drop f ] if
     ] if ;
 
 : chop-; ( seq -- seq' )