generic: rename method-body predicate class to method

[factor.git] / basis / prettyprint / prettyprint.factor

diff --git a/basis/prettyprint/prettyprint.factor b/basis/prettyprint/prettyprint.factor
index ccc77068e6f45527a504ca41bbf5af6adbcec687..7582f3248d91eae77e6bc6ddb5e67fb1e52d57d7 100644 (file)
--- a/basis/prettyprint/prettyprint.factor
+++ b/basis/prettyprint/prettyprint.factor
@@ -78,7 +78,7 @@ SYMBOL: ->
     first3
     [
         {
-            { [ dup method-body? ] [ "Method: " write . ] }
+            { [ dup method? ] [ "Method: " write . ] }
             { [ dup word? ] [ "Word: " write . ] }
             [ drop ]
         } cond