From ef98b7af53048a59b9114b970e9b44785913b72a Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 20 Mar 2013 16:18:30 -0700
Subject: [PATCH] tools, ui.tools: Rename complete-P"? to complete-pathname?

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

diff --git a/basis/tools/completion/completion.factor b/basis/tools/completion/completion.factor
index 7a0a0a6e7a..b28043610d 100644
--- a/basis/tools/completion/completion.factor
+++ b/basis/tools/completion/completion.factor
@@ -169,4 +169,4 @@ PRIVATE>
 
 : complete-COLOR:? ( tokens -- ? ) "COLOR:" complete-token? ;
 
-: complete-P"? ( tokens -- ? ) "P\"" 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 5a0fd456e5..435dfb9554 100644
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@@ -95,7 +95,7 @@ M: color-completion row-color
         { [ dup complete-vocab? ] [ 2drop vocab-completion ] }
         { [ dup complete-CHAR:? ] [ 2drop char-completion ] }
         { [ dup complete-COLOR:? ] [ 2drop color-completion ] }
-        { [ dup complete-P"? ] [ 2drop path-completion ] }
+        { [ dup complete-pathname? ] [ 2drop path-completion ] }
         [ drop <word-completion> ]
     } cond ;