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

[factor.git] / basis / memoize / memoize.factor

diff --git a/basis/memoize/memoize.factor b/basis/memoize/memoize.factor
index bd0cd8d77c23cd65c03a5ad27aba14ac8edd56a8..8750dfdd931a1c468597cabdb23e6b13021c6f63 100644 (file)
--- a/basis/memoize/memoize.factor
+++ b/basis/memoize/memoize.factor
@@ -72,7 +72,7 @@ SYNTAX: MEMO: (:) define-memoized ;
 
 SYNTAX: IDENTITY-MEMO: (:) define-identity-memoized ;
 
-PREDICATE: memoized < word "memoize" word-prop ;
+PREDICATE: memoized < word "memoize" word-prop >boolean ;
 
 M: memoized definer drop \ MEMO: \ ; ;