basis: ERROR: changes.

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

diff --git a/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor b/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor
index f7f54cde10b173574eb82dc87604b403312a70b4..305bc9777f89ee6b0dff6f73882ad1b30ffaf43f 100644 (file)
--- a/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor
+++ b/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor
@@ -172,7 +172,7 @@ M: hairy-clobber-insn compute-live-intervals* ( insn -- )
 ERROR: bad-live-interval live-interval ;
 
 : check-start ( live-interval -- )
-    dup start>> -1 = [ bad-live-interval ] [ drop ] if ;
+    dup start>> -1 = [ throw-bad-live-interval ] [ drop ] if ;
 
 : finish-live-intervals ( live-intervals -- )
     [