Language change: tuple slot setter words with stack effect ( value object -- ) are...

[factor.git] / basis / xmode / rules / rules.factor

diff --git a/basis/xmode/rules/rules.factor b/basis/xmode/rules/rules.factor
index ffe6db3b4696f9cf32a5df17d273ab6f084293ae..7a67dc9f9b0b2e8bcb3046180681d59a978632dd 100644 (file)
--- a/basis/xmode/rules/rules.factor
+++ b/basis/xmode/rules/rules.factor
@@ -79,7 +79,7 @@ TUPLE: eol-span-rule < rule ;
 : init-span ( rule -- )
     dup delegate>> [ drop ] [
         dup body-token>> standard-rule-set
-        swap (>>delegate)
+        swap delegate<<
     ] if ;
 
 : init-eol-span ( rule -- )
@@ -114,7 +114,7 @@ M: regexp text-hash-char drop f ;
 : add-escape-rule ( string ruleset -- )
     over [
         [ <escape-rule> ] dip
-        2dup (>>escape-rule)
+        2dup escape-rule<<
         add-rule
     ] [
         2drop