slots: make predicates return booleans.

John Benediktsson 2012-08-14 18:09:50 -07:00
parent 19cd3c1fae
commit 7e6385d9e8
1 changed files with 2 additions and 2 deletions

View File

@ -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