basis: ERROR: changes.

[factor.git] / basis / compiler / cfg / alias-analysis / alias-analysis.factor

diff --git a/basis/compiler/cfg/alias-analysis/alias-analysis.factor b/basis/compiler/cfg/alias-analysis/alias-analysis.factor
index 9243af28d2641161eef2ff516331260df3305714..b1462a76fad60376038f68d0ddc862768b2d4363 100644 (file)
--- a/basis/compiler/cfg/alias-analysis/alias-analysis.factor
+++ b/basis/compiler/cfg/alias-analysis/alias-analysis.factor
@@ -67,7 +67,7 @@ ERROR: vreg-not-new vreg ;
 
 :: set-ac ( vreg ac -- )
     #! Set alias class of newly-seen vreg.
-    vreg vregs>acs get key? [ vreg vreg-not-new ] when
+    vreg vregs>acs get key? [ vreg throw-vreg-not-new ] when
     ac vreg vregs>acs get set-at
     vreg ac ac>vregs push ;