From 57b681dd71a44f26f5303289be708572280eca2d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 13 Jul 2012 18:58:05 -0700
Subject: [PATCH] ui.tools.listener.completion: intersects? is overkill here.

---
 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 6c4562abb1..6187c64f89 100644
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@@ -83,7 +83,7 @@ M: vocab-completion row-color
     { ";" } split1-last [ ] [ ] ?if ;
 
 : complete-vocab-list? ( tokens -- ? )
-    chop-; 1 short head* { "USING:" } intersects? ;
+    chop-; 1 short head* "USING:" swap member? ;
 
 : complete-CHAR:? ( tokens -- ? )
     2 short tail* "CHAR:" swap member? ;