Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

slots: make predicates return booleans.

  • Loading branch information...
commit 7e6385d9e8faf4a713d741b1f6425da64f7fc7ac 1 parent 19cd3c1
@mrjbq7 mrjbq7 authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 core/slots/slots.factor
View
4 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
Please sign in to comment.
Something went wrong with that request. Please try again.