change ERROR: words from throw-foo back to foo.

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

diff --git a/basis/compiler/cfg/linear-scan/assignment/assignment.factor b/basis/compiler/cfg/linear-scan/assignment/assignment.factor
index c85278c1f6c6d25449ea073a82b193d708b438a5..e40b41c6b6f3740bb0ca9cf591b40440030854b5 100644 (file)
--- a/basis/compiler/cfg/linear-scan/assignment/assignment.factor
+++ b/basis/compiler/cfg/linear-scan/assignment/assignment.factor
@@ -30,7 +30,7 @@ ERROR: not-spilled-error vreg ;
 : vreg>spill-slot ( vreg -- spill-slot )
     dup vreg>reg dup spill-slot?
     [ nip ]
-    [ drop leader throw-not-spilled-error ] if ;
+    [ drop leader not-spilled-error ] if ;
 
 : vregs>regs ( vregs -- assoc )
     [ dup vreg>reg ] H{ } map>assoc ;