basis: ERROR: changes.

[factor.git] / basis / compiler / cfg / ssa / destruction / coalescing / coalescing.factor

diff --git a/basis/compiler/cfg/ssa/destruction/coalescing/coalescing.factor b/basis/compiler/cfg/ssa/destruction/coalescing/coalescing.factor
index c9e88cd83d888b04fe0e3f5c062893d1f94279be..e9b6f682ce482a35ddedbdf8497b5480ce05bf23 100644 (file)
--- a/basis/compiler/cfg/ssa/destruction/coalescing/coalescing.factor
+++ b/basis/compiler/cfg/ssa/destruction/coalescing/coalescing.factor
@@ -27,7 +27,7 @@ ERROR: vregs-shouldn't-interfere vreg1 vreg2 ;
 : try-eliminate-copy ( follower leader must? -- )
     -rot leaders 2dup = [ 3drop ] [
         2dup vregs-interfere? [
-            drop rot [ vregs-shouldn't-interfere ] [ 2drop ] if
+            drop rot [ throw-vregs-shouldn't-interfere ] [ 2drop ] if
         ] [ -rot coalesce-vregs drop ] if
     ] if ;