make some predicates return t/f instead of something/f.

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

diff --git a/extra/descriptive/descriptive.factor b/extra/descriptive/descriptive.factor
index dec94d76bf854cc5223f9b627a30bc9d30910323..112540bc91a0c87e3dd1a8d1d9bfb1dac1e7cc08 100644 (file)
--- a/extra/descriptive/descriptive.factor
+++ b/extra/descriptive/descriptive.factor
@@ -38,7 +38,7 @@ PRIVATE>
 SYNTAX: DESCRIPTIVE: (:) define-descriptive ;
 
 PREDICATE: descriptive < word
-    "descriptive-definition" word-prop ;
+    "descriptive-definition" word-prop >boolean ;
 
 M: descriptive definer drop \ DESCRIPTIVE: \ ; ;