generic: rename method-body predicate class to method

[factor.git] / basis / delegate / delegate.factor

diff --git a/basis/delegate/delegate.factor b/basis/delegate/delegate.factor
index fe6ea03794f01fa5e9578ee4c789260dbc3e2ee2..d033b7115bb28f252faba92c49d387ce483a2ab0 100644 (file)
--- a/basis/delegate/delegate.factor
+++ b/basis/delegate/delegate.factor
@@ -39,7 +39,7 @@ TUPLE: consultation group class quot loc ;
     [ class>> swap first create-method dup fake-definition ] keep
     [ drop ] [ "consultation" set-word-prop ] 2bi ;
 
-PREDICATE: consult-method < method-body "consultation" word-prop ;
+PREDICATE: consult-method < method "consultation" word-prop ;
 
 M: consult-method reset-word
     [ call-next-method ] [ f "consultation" set-word-prop ] bi ;