From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 23 Mar 2013 23:51:26 +0000 (-0700)
Subject: delegate: Rename consult-method.
X-Git-Tag: 0.97~1782
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=031543fed3ec649d60d96be6e7f20c02a6fe5315

delegate: Rename consult-method.
---

diff --git a/basis/delegate/delegate.factor b/basis/delegate/delegate.factor
index 1684c8c468..4bd99357e0 100644
--- a/basis/delegate/delegate.factor
+++ b/basis/delegate/delegate.factor
@@ -72,7 +72,7 @@ M: broadcast (consult-method-quot)
     [ second [ [ dip ] curry ] times ] [ first ] bi
     (consult-method-quot) ;
 
-: consult-method ( word consultation -- )
+: define-consult-method ( word consultation -- )
     [ create-consult-method ]
     [ swap consult-method-quot ] 2bi
     define ;
@@ -85,7 +85,7 @@ M: broadcast (consult-method-quot)
     '[ [ _ _ ] dip ?set-at ] change-word-prop ;
 
 : consult-methods ( consultation -- )
-    [ consult-method ] each-generic ;
+    [ define-consult-method ] each-generic ;
 
 : unregister-consult ( consultation -- )
     [ class>> ] [ group>> ] bi
@@ -142,7 +142,7 @@ M: consultation forget*
 
 : add-new-definitions ( protocol wordlist -- )
     [ drop protocol-consult values ] [ added-words ] 2bi
-    [ swap consult-method ] cartesian-each ;
+    [ swap define-consult-method ] cartesian-each ;
 
 : initialize-protocol-props ( protocol wordlist -- )
     [