From 4b8132d7770e5db675640ef9255d27eb2c11e2ca Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Tue, 14 Jul 2009 11:43:32 -0500
Subject: [PATCH] factor compilation unit from tools.annotations:reset

---
 basis/tools/annotations/annotations.factor | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/basis/tools/annotations/annotations.factor b/basis/tools/annotations/annotations.factor
index f02476d4da..2fb246786c 100644
--- a/basis/tools/annotations/annotations.factor
+++ b/basis/tools/annotations/annotations.factor
@@ -7,19 +7,24 @@ tools.time generic inspector fry tools.continuations
 locals generalizations macros ;
 IN: tools.annotations
 
-GENERIC: reset ( word -- )
+<PRIVATE
 
-M: generic reset
-    subwords [ reset ] each ;
+GENERIC: (reset) ( word -- )
 
-M: word reset
+M: generic (reset)
+    subwords [ (reset) ] each ;
+
+M: word (reset)
     dup "unannotated-def" word-prop [
-        [
-            dup dup "unannotated-def" word-prop define
-        ] with-compilation-unit
+        dup dup "unannotated-def" word-prop define
         f "unannotated-def" set-word-prop
     ] [ drop ] if ;
 
+PRIVATE>
+
+: reset ( word -- )
+    [ (reset) ] with-compilation-unit ;
+
 ERROR: cannot-annotate-twice word ;
 
 M: cannot-annotate-twice summary drop "Cannot annotate a word twice" ;