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

[factor.git] / basis / locals / definitions / definitions.factor

diff --git a/basis/locals/definitions/definitions.factor b/basis/locals/definitions/definitions.factor
index 6823788bc54c384829b8aa9e0a4ae575510c8e3d..62dcaa6b48ce9cd6f481403d739e2561941c822d 100644 (file)
--- a/basis/locals/definitions/definitions.factor
+++ b/basis/locals/definitions/definitions.factor
@@ -12,7 +12,7 @@ M: lambda-word definition
     "lambda" word-prop body>> ;
 
 M: lambda-word reset-word
-    [ call-next-method ] [ f "lambda" set-word-prop ] bi ;
+    [ call-next-method ] [ "lambda" remove-word-prop ] bi ;
 
 PREDICATE: lambda-macro < macro lambda-word? ;
 
@@ -22,7 +22,7 @@ M: lambda-macro definition
     "lambda" word-prop body>> ;
 
 M: lambda-macro reset-word
-    [ call-next-method ] [ f "lambda" set-word-prop ] bi ;
+    [ call-next-method ] [ "lambda" remove-word-prop ] bi ;
 
 PREDICATE: lambda-method < method lambda-word? ;
 
@@ -32,7 +32,7 @@ M: lambda-method definition
     "lambda" word-prop body>> ;
 
 M: lambda-method reset-word
-    [ call-next-method ] [ f "lambda" set-word-prop ] bi ;
+    [ call-next-method ] [ "lambda" remove-word-prop ] bi ;
 
 PREDICATE: lambda-memoized < memoized lambda-word? ;
 
@@ -42,7 +42,7 @@ M: lambda-memoized definition
     "lambda" word-prop body>> ;
 
 M: lambda-memoized reset-word
-    [ call-next-method ] [ f "lambda" set-word-prop ] bi ;
+    [ call-next-method ] [ "lambda" remove-word-prop ] bi ;
 
 : method-stack-effect ( method -- effect )
     dup "lambda" word-prop vars>>