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

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

diff --git a/basis/delegate/delegate.factor b/basis/delegate/delegate.factor
index 1554616c787259fedd5fa01cc06ac3c2a476f996..feac748ccda658503ee756e9165f2c118fe5f6dc 100644 (file)
--- a/basis/delegate/delegate.factor
+++ b/basis/delegate/delegate.factor
@@ -60,7 +60,7 @@ PREDICATE: consult-method < method
     "consultation" word-prop >boolean ;
 
 M: consult-method reset-word
-    [ call-next-method ] [ f "consultation" set-word-prop ] bi ;
+    [ call-next-method ] [ "consultation" remove-word-prop ] bi ;
 
 GENERIC#: (consult-method-quot) 2 ( consultation quot word -- object )