From a1df9055353d11ba6ebf1e19b983739ae7cd37ae Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 20 Mar 2013 23:06:40 -0700
Subject: [PATCH] readline-listener: fix for tools.completion renames.

---
 extra/readline-listener/readline-listener.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/readline-listener/readline-listener.factor b/extra/readline-listener/readline-listener.factor
index 072f80e1d4..90c13767cd 100644
--- a/extra/readline-listener/readline-listener.factor
+++ b/extra/readline-listener/readline-listener.factor
@@ -41,8 +41,8 @@ M: readline-reader prompt.
     completions tget [ nip ] [
         completion-line " \r\n" split {
             { [ dup complete-vocab? ] [ drop prefixed-vocabs ] }
-            { [ dup complete-CHAR:? ] [ drop prefixed-chars ] }
-            { [ dup complete-COLOR:? ] [ drop prefixed-colors ] }
+            { [ dup complete-char? ] [ drop prefixed-chars ] }
+            { [ dup complete-color? ] [ drop prefixed-colors ] }
             [ drop prefixed-words ]
         } cond dup completions tset
     ] if* ;