From 5f165095dc67b89e0cfa00514a13922e9a7cf6a0 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 8 Mar 2013 17:53:02 -0800
Subject: [PATCH] ui.tools.listener.completion: fix use of search-vocab-names.
---
basis/ui/tools/listener/completion/completion.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/ui/tools/listener/completion/completion.factor b/basis/ui/tools/listener/completion/completion.factor
index fb1e06ba37..5a0fd456e5 100644
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@@ -73,7 +73,7 @@ M: definition-completion row-columns
M: word-completion row-color
[ vocabulary>> ] [ manifest>> ] bi* {
{ [ dup not ] [ COLOR: black ] }
- { [ 2dup search-vocab-names>> keys member? ] [ COLOR: black ] }
+ { [ 2dup search-vocab-names>> in? ] [ COLOR: black ] }
{ [ over ".private" tail? ] [ COLOR: dark-red ] }
[ COLOR: dark-gray ]
} cond 2nip ;