readline-listener: words are just strings, so display unique ones

diff --git a/extra/readline-listener/readline-listener.factor b/extra/readline-listener/readline-listener.factor
index 8edd524d82374d91b00a3a07dd362cef574ec4a1..a66155451408c85a5bf6077ed515f6aa1cb3b30d 100644 (file)
--- a/extra/readline-listener/readline-listener.factor
+++ b/extra/readline-listener/readline-listener.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 
 USING: accessors assocs colors combinators io kernel listener
-readline sequences splitting threads tools.completion
+readline sequences sets splitting threads tools.completion
 unicode.data vocabs vocabs.hierarchy ;
 
 IN: readline-listener
@@ -29,7 +29,7 @@ M: readline-reader prompt.
     swap '[ _ head? ] filter ;
 
 : prefixed-words ( prefix -- words )
-    all-words [ name>> ] map! prefixed ;
+    all-words [ name>> ] map! members prefixed ;
 
 : prefixed-vocabs ( prefix -- vocabs )
     all-disk-vocabs-recursive filter-vocabs [ name>> ] map! prefixed ;