From 031543fed3ec649d60d96be6e7f20c02a6fe5315 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 23 Mar 2013 16:51:26 -0700 Subject: [PATCH] delegate: Rename consult-method. --- basis/delegate/delegate.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- ) [ -- 2.34.1