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

[factor.git] / basis / compiler / cfg / gc-checks / gc-checks.factor

diff --git a/basis/compiler/cfg/gc-checks/gc-checks.factor b/basis/compiler/cfg/gc-checks/gc-checks.factor
index 4d71bbe5565d9a86e39903f7e61f223bc918cc4a..0ebda513a2366f5eaef2432e6312cb4a00bb8200 100644 (file)
--- a/basis/compiler/cfg/gc-checks/gc-checks.factor
+++ b/basis/compiler/cfg/gc-checks/gc-checks.factor
@@ -62,13 +62,13 @@ IN: compiler.cfg.gc-checks
     >>instructions t >>unlikely? ;
 
 :: insert-guard ( body check bb -- )
-    bb predecessors>> check (>>predecessors)
-    V{ bb body }      check (>>successors)
+    bb predecessors>> check predecessors<<
+    V{ bb body }      check successors<<
 
-    V{ check }        body (>>predecessors)
-    V{ bb }           body (>>successors)
+    V{ check }        body predecessors<<
+    V{ bb }           body successors<<
 
-    V{ check body }   bb (>>predecessors)
+    V{ check body }   bb predecessors<<
 
     check predecessors>> [ bb check update-successors ] each ;