Permalink
Browse files

slots: make predicates return booleans.

  • Loading branch information...
1 parent 19cd3c1 commit 7e6385d9e8faf4a713d741b1f6425da64f7fc7ac @mrjbq7 mrjbq7 committed Aug 15, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 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

0 comments on commit 7e6385d

Please sign in to comment.