generic: rename method-body predicate class to method

[factor.git] / core / slots / slots.factor

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index 7b977482496a4d95e5c2872dc8c569b0b682ec37..f6bd13cf6d2426fe409e346d63b468cd50cb5647 100644 (file)
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -10,11 +10,11 @@ TUPLE: slot-spec name offset class initial read-only ;
 
 PREDICATE: reader < word "reader" word-prop ;
 
-PREDICATE: reader-method < method-body "reading" word-prop ;
+PREDICATE: reader-method < method "reading" word-prop ;
 
 PREDICATE: writer < word "writer" word-prop ;
 
-PREDICATE: writer-method < method-body "writing" word-prop ;
+PREDICATE: writer-method < method "writing" word-prop ;
 
 : <slot-spec> ( -- slot-spec )
     slot-spec new