slots: make predicates return booleans.

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index e47f7ce422677330f6b3ecb470d82e2126ddcfe7..d5289db370b83c27a541eb035f9ba53172679ae8 100644 (file)
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -11,11 +11,11 @@ TUPLE: slot-spec name offset class initial read-only ;
 
 PREDICATE: reader < word "reader" word-prop ;
 
-PREDICATE: reader-method < method "reading" word-prop ;
+PREDICATE: reader-method < method "reading" word-prop >boolean ;
 
 PREDICATE: writer < word "writer" word-prop ;
 
-PREDICATE: writer-method < method "writing" word-prop ;
+PREDICATE: writer-method < method "writing" word-prop >boolean ;
 
 : <slot-spec> ( -- slot-spec )
     slot-spec new