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

[factor.git] / core / words / constant / constant.factor

diff --git a/core/words/constant/constant.factor b/core/words/constant/constant.factor
index 926387539b793e2c5ffe20ed4c85b395c9ba81ab..9572500e70a5f64f75574f99dd81f04704f3ed96 100644 (file)
--- a/core/words/constant/constant.factor
+++ b/core/words/constant/constant.factor
@@ -10,6 +10,6 @@ PREDICATE: constant < word "constant" word-prop >boolean ;
     [ [ ] curry ( -- value ) define-inline ] 2bi ;
 
 M: constant reset-word
-    [ call-next-method ] [ f "constant" set-word-prop ] bi ;
+    [ call-next-method ] [ "constant" remove-word-prop ] bi ;
 
 M: constant definer drop \ CONSTANT: f ;