From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 2 Feb 2022 06:29:55 +0000 (-0600)
Subject: ui.tools.operations: Don't annotate regular objects, only words.
X-Git-Tag: 0.99~1593
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=789a049a92bb85ba60ccb92e45ad9d5f8a17d44b

ui.tools.operations: Don't annotate regular objects, only words.
---

diff --git a/basis/ui/tools/operations/operations.factor b/basis/ui/tools/operations/operations.factor
index c2019b60c4..c449667d9a 100644
--- a/basis/ui/tools/operations/operations.factor
+++ b/basis/ui/tools/operations/operations.factor
@@ -119,7 +119,7 @@ IN: ui.tools.operations
     { +listener+ t }
 } define-operation
 
-[ annotated? not ] \ watch H{ } define-operation
+[ [ annotated? not ] [ word? ] bi and ] \ watch H{ } define-operation
 
 [ annotated? ] \ reset H{ } define-operation