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

[factor.git] / basis / compiler / cfg / linear-scan / allocation / splitting / splitting.factor

diff --git a/basis/compiler/cfg/linear-scan/allocation/splitting/splitting.factor b/basis/compiler/cfg/linear-scan/allocation/splitting/splitting.factor
index b3cba3d90d26b80e9ef43beca2deca63be9f9cb9..d41a06806b33db11ccccb13f1ac5d140b87ebbe4 100644 (file)
--- a/basis/compiler/cfg/linear-scan/allocation/splitting/splitting.factor
+++ b/basis/compiler/cfg/linear-scan/allocation/splitting/splitting.factor
@@ -51,8 +51,8 @@ ERROR: splitting-atomic-interval ;
     live-interval n check-split
     live-interval clone :> before
     live-interval clone :> after
-    live-interval uses>> n split-uses before after [ (>>uses) ] bi-curry@ bi*
-    live-interval ranges>> n split-ranges before after [ (>>ranges) ] bi-curry@ bi*
+    live-interval uses>> n split-uses before after [ uses<< ] bi-curry@ bi*
+    live-interval ranges>> n split-ranges before after [ ranges<< ] bi-curry@ bi*
     before split-before
     after split-after ;