From a440b2a909dbc47187ccb01aee61b86c5c9f4b33 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 20 Mar 2013 16:51:09 -0700
Subject: [PATCH] tools.completion: matching names.

---
 basis/tools/completion/completion.factor             | 4 ++--
 basis/ui/tools/listener/completion/completion.factor | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/basis/tools/completion/completion.factor b/basis/tools/completion/completion.factor
index b28043610d..f22b70048e 100644
--- a/basis/tools/completion/completion.factor
+++ b/basis/tools/completion/completion.factor
@@ -165,8 +165,8 @@ PRIVATE>
 
 PRIVATE>
 
-: complete-CHAR:? ( tokens -- ? ) "CHAR:" complete-token? ;
+: complete-char? ( tokens -- ? ) "CHAR:" complete-token? ;
 
-: complete-COLOR:? ( tokens -- ? ) "COLOR:" complete-token? ;
+: complete-color? ( tokens -- ? ) "COLOR:" complete-token? ;
 
 : complete-pathname? ( tokens -- ? ) "P\"" complete-token? ;
diff --git a/basis/ui/tools/listener/completion/completion.factor b/basis/ui/tools/listener/completion/completion.factor
index 435dfb9554..53005747c7 100644
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@@ -93,8 +93,8 @@ M: color-completion row-color
     [ manifest>> ] [ editor-caret ] [ model>> ] tri up-to-caret " \r\n" split
     {
         { [ dup complete-vocab? ] [ 2drop vocab-completion ] }
-        { [ dup complete-CHAR:? ] [ 2drop char-completion ] }
-        { [ dup complete-COLOR:? ] [ 2drop color-completion ] }
+        { [ dup complete-char? ] [ 2drop char-completion ] }
+        { [ dup complete-color? ] [ 2drop color-completion ] }
         { [ dup complete-pathname? ] [ 2drop path-completion ] }
         [ drop <word-completion> ]
     } cond ;