locals.definition: fix reset-word for M::, MACRO::, MEMO::.

call-next-method on an intersection isn't what we want here.

diff --git a/basis/locals/definitions/definitions.factor b/basis/locals/definitions/definitions.factor
index 6fc715ba8d0a84d5cfcb70f5758ecfe75d050289..6823788bc54c384829b8aa9e0a4ae575510c8e3d 100644 (file)
--- a/basis/locals/definitions/definitions.factor
+++ b/basis/locals/definitions/definitions.factor
@@ -14,7 +14,7 @@ M: lambda-word definition
 M: lambda-word reset-word
     [ call-next-method ] [ f "lambda" set-word-prop ] bi ;
 
-INTERSECTION: lambda-macro macro lambda-word ;
+PREDICATE: lambda-macro < macro lambda-word? ;
 
 M: lambda-macro definer drop \ MACRO:: \ ; ;
 
@@ -24,7 +24,7 @@ M: lambda-macro definition
 M: lambda-macro reset-word
     [ call-next-method ] [ f "lambda" set-word-prop ] bi ;
 
-INTERSECTION: lambda-method method lambda-word ;
+PREDICATE: lambda-method < method lambda-word? ;
 
 M: lambda-method definer drop \ M:: \ ; ;
 
@@ -34,7 +34,7 @@ M: lambda-method definition
 M: lambda-method reset-word
     [ call-next-method ] [ f "lambda" set-word-prop ] bi ;
 
-INTERSECTION: lambda-memoized memoized lambda-word ;
+PREDICATE: lambda-memoized < memoized lambda-word? ;
 
 M: lambda-memoized definer drop \ MEMO:: \ ; ;