Fix bootstrap failure

diff --git a/library/ui/commands.factor b/library/ui/commands.factor
index 25ec4ef75283df3ac17a4e9f201ff04aff34142b..c9910ae1924bb15ef0d7084a646e2c9023192c2c 100644 (file)
--- a/library/ui/commands.factor
+++ b/library/ui/commands.factor
@@ -92,3 +92,11 @@ SYMBOL: operations
     swap object-operations
     [ operation-mouse = ] subset-with
     dup empty? [ drop f ] [ peek ] if ;
+
+: modify-operation ( quot operation -- operation )
+    clone
+    [ command-quot append ] keep
+    [ set-command-quot ] keep ;
+
+: modify-operations ( operations quot -- operations )
+    swap [ modify-operation ] map-with ;

diff --git a/library/ui/tools/operations.factor b/library/ui/tools/operations.factor
index aa6d4bb47301fd7fb005086d3a83217d144bf76c..334d38021eb7404ba67d2e38c4779863200a7461 100644 (file)
--- a/library/ui/tools/operations.factor
+++ b/library/ui/tools/operations.factor
@@ -16,14 +16,6 @@ M: operation invoke-command ( target operation -- )
     dup command-quot swap operation-listener?
     [ curry call-listener ] [ call ] if ;
 
-: modify-operation ( quot operation -- operation )
-    clone
-    [ command-quot append ] keep
-    [ set-command-quot ] keep ;
-
-: modify-operations ( operations quot -- operations )
-    swap [ modify-operation ] map-with ;
-
 : modify-listener-operation ( quot operation -- operation )
     clone t over set-operation-listener?
     modify-operation ;