basis: ERROR: changes.

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

diff --git a/basis/compiler/cfg/linear-scan/allocation/spilling/spilling.factor b/basis/compiler/cfg/linear-scan/allocation/spilling/spilling.factor
index 81924ad4cc8531930fb9dd1d7fdcfeea19ef7175..778fd0a1ec2b8275f5d827c64be55259880e8ea1 100644 (file)
--- a/basis/compiler/cfg/linear-scan/allocation/spilling/spilling.factor
+++ b/basis/compiler/cfg/linear-scan/allocation/spilling/spilling.factor
@@ -12,7 +12,7 @@ ERROR: bad-live-ranges interval ;
 : check-ranges ( live-interval -- )
     check-allocation? get [
         dup ranges>> [ [ from>> ] [ to>> ] bi <= ] all?
-        [ drop ] [ bad-live-ranges ] if
+        [ drop ] [ throw-bad-live-ranges ] if
     ] [ drop ] if ;
 
 : trim-before-ranges ( live-interval -- )