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

[factor.git] / extra / descriptive / descriptive.factor

diff --git a/extra/descriptive/descriptive.factor b/extra/descriptive/descriptive.factor
index 8c2d5e365fa4d96b21f9ac0a3c5ced6305a862b9..1e0a5eedfb9398f49fd981a15ee2c5aa8448fd86 100644 (file)
--- a/extra/descriptive/descriptive.factor
+++ b/extra/descriptive/descriptive.factor
@@ -47,7 +47,7 @@ M: descriptive definition
 
 M: descriptive reset-word
     [ call-next-method ]
-    [ f "descriptive-definition" set-word-prop ] bi ;
+    [ "descriptive-definition" remove-word-prop ] bi ;
 
 SYNTAX: DESCRIPTIVE:: (::) define-descriptive ;
 
@@ -59,4 +59,4 @@ M: descriptive-lambda definition
     "lambda" word-prop body>> ;
 
 M: descriptive-lambda reset-word
-    [ call-next-method ] [ f "lambda" set-word-prop ] bi ;
+    [ call-next-method ] [ "lambda" remove-word-prop ] bi ;