descriptive: fix reset-word on descriptive words.

diff --git a/extra/descriptive/descriptive.factor b/extra/descriptive/descriptive.factor
index 112540bc91a0c87e3dd1a8d1d9bfb1dac1e7cc08..8c2d5e365fa4d96b21f9ac0a3c5ced6305a862b9 100644 (file)
--- a/extra/descriptive/descriptive.factor
+++ b/extra/descriptive/descriptive.factor
@@ -45,11 +45,18 @@ M: descriptive definer drop \ DESCRIPTIVE: \ ; ;
 M: descriptive definition
     "descriptive-definition" word-prop ;
 
+M: descriptive reset-word
+    [ call-next-method ]
+    [ f "descriptive-definition" set-word-prop ] bi ;
+
 SYNTAX: DESCRIPTIVE:: (::) define-descriptive ;
 
-INTERSECTION: descriptive-lambda descriptive lambda-word ;
+PREDICATE: descriptive-lambda < descriptive lambda-word? ;
 
 M: descriptive-lambda definer drop \ DESCRIPTIVE:: \ ; ;
 
 M: descriptive-lambda definition
     "lambda" word-prop body>> ;
+
+M: descriptive-lambda reset-word
+    [ call-next-method ] [ f "lambda" set-word-prop ] bi ;