Revert "Revert "words: use remove-word-prop instead of f set-word-prop.""

[factor.git] / core / classes / classes.factor

diff --git a/core/classes/classes.factor b/core/classes/classes.factor
index 8401a654a190f4aae601ac3b58dc18412db18de2..434f2cbb46241b0c5e771b382e7abd554b9fcf5f 100644 (file)
--- a/core/classes/classes.factor
+++ b/core/classes/classes.factor
@@ -92,10 +92,10 @@ M: object predicate-def
 M: predicate flushable? drop t ;
 
 M: predicate forget*
-    [ call-next-method ] [ f "predicating" set-word-prop ] bi ;
+    [ call-next-method ] [ "predicating" remove-word-prop ] bi ;
 
 M: predicate reset-word
-    [ call-next-method ] [ f "predicating" set-word-prop ] bi ;
+    [ call-next-method ] [ "predicating" remove-word-prop ] bi ;
 
 : define-predicate ( class quot -- )
     [ predicate-word ] dip ( object -- ? ) define-declared ;