From e84ad1f2babd77189259dd9fb7cb72504c967f43 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 5 Jan 2008 22:07:13 -0400
Subject: [PATCH] Make tools.annotations:reset more robust

---
 extra/tools/annotations/annotations.factor | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/extra/tools/annotations/annotations.factor b/extra/tools/annotations/annotations.factor
index 45826724ca..d8696b7129 100755
--- a/extra/tools/annotations/annotations.factor
+++ b/extra/tools/annotations/annotations.factor
@@ -5,12 +5,17 @@ prettyprint continuations effects definitions ;
 IN: tools.annotations
 
 : reset ( word -- )
-    dup "unannotated-def" word-prop define ;
+    dup "unannotated-def" word-prop [
+        [
+            dup "unannotated-def" word-prop define
+        ] with-compilation-unit
+    ] [ drop ] if ;
 
 : annotate ( word quot -- )
-    over dup word-def "unannotated-def" set-word-prop
-    [ >r dup word-def r> call define ] with-compilation-unit ;
-    inline
+    [
+        over dup word-def "unannotated-def" set-word-prop
+        >r dup word-def r> call define
+    ] with-compilation-unit ; inline
 
 : entering ( str -- )
     "/-- Entering: " write dup .