Fixing everything for mandatory stack effects

[factor.git] / extra / xmode / utilities / utilities.factor

diff --git a/extra/xmode/utilities/utilities.factor b/extra/xmode/utilities/utilities.factor
index db59465b7b559e937e5aa5585821d5d55945cc72..0321974c9ed6edd585821058d07bd87cb3b74330 100644 (file)
--- a/extra/xmode/utilities/utilities.factor
+++ b/extra/xmode/utilities/utilities.factor
@@ -45,7 +45,7 @@ SYMBOL: tag-handler-word
     CREATE tag-handler-word set
     H{ } clone tag-handlers set ; parsing
 
-: (TAG:) swap tag-handlers get set-at ;
+: (TAG:) ( name quot -- ) swap tag-handlers get set-at ;
 
 : TAG:
     f set-word
@@ -55,4 +55,4 @@ SYMBOL: tag-handler-word
 : TAGS>
     tag-handler-word get
     tag-handlers get >alist [ >r dup name-tag r> case ] curry
-    define ; parsing
+    (( tag -- )) define-declared ; parsing