basis: ERROR: changes.

[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 81cbfa4cf7764461e73f13c9871573b72e657076..c85278c1f6c6d25449ea073a82b193d708b438a5 100644 (file)
--- a/basis/compiler/cfg/linear-scan/assignment/assignment.factor
+++ b/basis/compiler/cfg/linear-scan/assignment/assignment.factor
@@ -28,7 +28,9 @@ SYMBOL: pending-interval-assoc
 ERROR: not-spilled-error vreg ;
 
 : vreg>spill-slot ( vreg -- spill-slot )
-    dup vreg>reg dup spill-slot? [ nip ] [ drop leader not-spilled-error ] if ;
+    dup vreg>reg dup spill-slot?
+    [ nip ]
+    [ drop leader throw-not-spilled-error ] if ;
 
 : vregs>regs ( vregs -- assoc )
     [ dup vreg>reg ] H{ } map>assoc ;