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

[factor.git] / basis / compiler / tree / propagation / call-effect / call-effect.factor

diff --git a/basis/compiler/tree/propagation/call-effect/call-effect.factor b/basis/compiler/tree/propagation/call-effect/call-effect.factor
index 4b029fccf20510aacbed1602ef872146f52ac87b..d55769c17bc326f5c6c52189cd0ae6513637ad1d 100644 (file)
--- a/basis/compiler/tree/propagation/call-effect/call-effect.factor
+++ b/basis/compiler/tree/propagation/call-effect/call-effect.factor
@@ -33,7 +33,7 @@ TUPLE: inline-cache value counter ;
 
 : update-inline-cache ( word/quot ic -- )
     [ effect-counter ] dip
-    [ (>>value) ] [ (>>counter) ] bi-curry bi* ; inline
+    [ value<< ] [ counter<< ] bi-curry bi* ; inline
 
 SINGLETON: +unknown+
 
@@ -74,7 +74,7 @@ M: compose cached-effect
 
 : save-effect ( effect quot -- )
     [ effect-counter ] dip
-    [ (>>cached-effect) ] [ (>>cache-counter) ] bi-curry bi* ;
+    [ cached-effect<< ] [ cache-counter<< ] bi-curry bi* ;
 
 M: quotation cached-effect
     dup cached-effect-valid?