basis: ERROR: changes.

[factor.git] / basis / compiler / cfg / checker / checker.factor

diff --git a/basis/compiler/cfg/checker/checker.factor b/basis/compiler/cfg/checker/checker.factor
index 23c5b25b6de05e55870475e016ee68766b5ca00e..94160334007774374b97eacb5965fdb052ec09d2 100644 (file)
--- a/basis/compiler/cfg/checker/checker.factor
+++ b/basis/compiler/cfg/checker/checker.factor
@@ -7,7 +7,7 @@ ERROR: bad-successors ;
 
 : check-successors ( bb -- )
     dup successors>> [ predecessors>> member-eq? ] with all?
-    [ bad-successors ] unless ;
+    [ throw-bad-successors ] unless ;
 
 : check-cfg ( cfg -- )
     [ check-successors ] each-basic-block ;