ui.tools.listener: protect vocab completion from bad vocab names.

diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index 8a5d987681f22d4217bbc762eae2e8433c85425b..0631fc2f5ba1f986c5a5e4554d0cc227276624ad 100644 (file)
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -47,7 +47,9 @@ M: interactor manifest>>
 GENERIC: (word-at-caret) ( token completion-mode -- obj )
 
 M: vocab-completion (word-at-caret)
-    drop dup vocab-exists? [ >vocab-link ] [ drop f ] if ;
+    drop
+    [ dup vocab-exists? [ >vocab-link ] [ drop f ] if ]
+    [ 2drop f ] recover ;
 
 M: word-completion (word-at-caret)
     manifest>> [