From e288cf970b4784627ae35577a1d28222ed0683cc Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 27 Jul 2012 14:06:38 -0700
Subject: [PATCH] tools.annotations: add a predicate class for annotated words.

---
 basis/tools/annotations/annotations.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/tools/annotations/annotations.factor b/basis/tools/annotations/annotations.factor
index 6232241107..b0e2873a8c 100644
--- a/basis/tools/annotations/annotations.factor
+++ b/basis/tools/annotations/annotations.factor
@@ -29,12 +29,12 @@ ERROR: cannot-annotate-twice word ;
 
 M: cannot-annotate-twice summary drop "Cannot annotate a word twice" ;
 
+PREDICATE: annotated < word "unannotated-def" word-prop >boolean ;
+
 <PRIVATE
 
 : check-annotate-twice ( word -- word )
-    dup "unannotated-def" word-prop [
-        cannot-annotate-twice
-    ] when ;
+    dup annotated? [ cannot-annotate-twice ] when ;
 
 : annotate-generic ( word quot -- )
     [ "methods" word-prop values ] dip each ; inline