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

[factor.git] / basis / delegate / delegate.factor

diff --git a/basis/delegate/delegate.factor b/basis/delegate/delegate.factor
index 16e1967aa6bd8af7fda1119838ffdb879f4105f9..1684c8c46867f6d367238c2ca9e4729ccd576465 100644 (file)
--- a/basis/delegate/delegate.factor
+++ b/basis/delegate/delegate.factor
@@ -54,7 +54,8 @@ TUPLE: broadcast < consultation ;
     [ class>> swap first create-method dup fake-definition ] keep
     [ drop ] [ "consultation" set-word-prop ] 2bi ;
 
-PREDICATE: consult-method < method "consultation" word-prop ;
+PREDICATE: consult-method < method
+    "consultation" word-prop >boolean ;
 
 M: consult-method reset-word
     [ call-next-method ] [ f "consultation" set-word-prop ] bi ;