basis: ERROR: changes.

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

diff --git a/basis/compiler/cfg/linear-scan/allocation/splitting/splitting.factor b/basis/compiler/cfg/linear-scan/allocation/splitting/splitting.factor
index bbcb6154f6cfd6d361155f5786aa4bdb8cf9913b..1914c13cf0f3328cea90be3d83774586d7536d46 100644 (file)
--- a/basis/compiler/cfg/linear-scan/allocation/splitting/splitting.factor
+++ b/basis/compiler/cfg/linear-scan/allocation/splitting/splitting.factor
@@ -40,10 +40,12 @@ ERROR: splitting-atomic-interval ;
 
 : check-split ( live-interval n -- )
     check-allocation? get [
-        [ [ start>> ] dip > [ splitting-too-early ] when ]
-        [ [ end>> ] dip < [ splitting-too-late ] when ]
-        [ drop [ end>> ] [ start>> ] bi = [ splitting-atomic-interval ] when ]
-        2tri
+        [ [ start>> ] dip > [ throw-splitting-too-early ] when ]
+        [ [ end>> ] dip < [ throw-splitting-too-late ] when ]
+        [
+            drop [ end>> ] [ start>> ] bi =
+            [ throw-splitting-atomic-interval ] when
+        ] 2tri
     ] [ 2drop ] if ; inline
 
 : split-before ( before -- before' )