basis: ERROR: changes.

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

diff --git a/basis/compiler/cfg/linear-scan/allocation/state/state.factor b/basis/compiler/cfg/linear-scan/allocation/state/state.factor
index 0ab2b9060b90318d6835dc32695e71791e9f03cd..664956d7760122850d2f53c3f9efc528dd6988be 100644 (file)
--- a/basis/compiler/cfg/linear-scan/allocation/state/state.factor
+++ b/basis/compiler/cfg/linear-scan/allocation/state/state.factor
@@ -71,7 +71,7 @@ ERROR: register-already-used live-interval ;
 : check-activate ( live-interval -- )
     check-allocation? get [
         dup [ reg>> ] [ active-intervals-for [ reg>> ] map ] bi member?
-        [ register-already-used ] [ drop ] if
+        [ throw-register-already-used ] [ drop ] if
     ] [ drop ] if ;
 
 : activate ( n live-interval -- keep? )