From 6a1f280e886ceb048e74570890bfb879c6936f97 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 14 Aug 2012 18:09:50 -0700 Subject: [PATCH] slots: make predicates return booleans. --- core/slots/slots.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/slots/slots.factor b/core/slots/slots.factor index e47f7ce422..d5289db370 100644 --- 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 new