change ERROR: words from throw-foo back to foo.

[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 94160334007774374b97eacb5965fdb052ec09d2..23c5b25b6de05e55870475e016ee68766b5ca00e 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?
-    [ throw-bad-successors ] unless ;
+    [ bad-successors ] unless ;
 
 : check-cfg ( cfg -- )
     [ check-successors ] each-basic-block ;