vocabs.loader: one vocab-exists? word.

basis/ui/tools/listener/listener.factor

@@ -44,9 +44,6 @@ M: interactor manifest>>
         manifest swap assoc-stack
     ] if ;
 
-: vocab-exists? ( name -- ? )
-    '[ _ { [ lookup-vocab ] [ find-vocab-root ] } 1|| ] [ drop f ] recover ;
-
 GENERIC: (word-at-caret) ( token completion-mode -- obj )
 
 M: vocab-completion (word-at-caret)

core/vocabs/loader/loader.factor

@@ -55,6 +55,9 @@ PRIVATE>
         ] if
     ] cache ;
 
+: vocab-exists? ( name -- ? )
+    dup lookup-vocab [ ] [ find-vocab-root ] ?if ;
+
 : vocab-append-path ( vocab path -- newpath )
     swap find-vocab-root [ prepend-path ] [ drop f ] if* ;