tools.annotations: simplify M\ word (reset)

diff --git a/basis/tools/annotations/annotations.factor b/basis/tools/annotations/annotations.factor
index a8dbec1fc3a3a03cc607c7ddcca214757d4863d6..97090e121800155915c4e9bfb728857d47d6e6f4 100644 (file)
--- a/basis/tools/annotations/annotations.factor
+++ b/basis/tools/annotations/annotations.factor
@@ -17,9 +17,8 @@ M: generic (reset)
 
 M: word (reset)
     dup "unannotated-def" word-prop [
-        dup dup "unannotated-def" word-prop define
-        "unannotated-def" remove-word-prop
-    ] [ drop ] if ;
+        dupd define "unannotated-def" remove-word-prop
+    ] [ drop ] if* ;
 
 PRIVATE>