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

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

diff --git a/basis/compiler/tree/checker/checker.factor b/basis/compiler/tree/checker/checker.factor
index bc616fe8c869584b16fc0cb1b45744c07aed5106..a099e798905dd45794b5b079aa0167c0de0dfbaa 100644 (file)
--- a/basis/compiler/tree/checker/checker.factor
+++ b/basis/compiler/tree/checker/checker.factor
@@ -11,11 +11,11 @@ IN: compiler.tree.checker
 ERROR: check-use-error value message ;
 
 : check-use ( value uses -- )
-    [ empty? [ "No use" throw-check-use-error ] [ drop ] if ]
+    [ empty? [ "No use" check-use-error ] [ drop ] if ]
     [
         all-unique?
         [ drop ]
-        [ "Uses not all unique" throw-check-use-error ] if
+        [ "Uses not all unique" check-use-error ] if
     ] 2bi ;
 
 : check-def-use ( -- )
@@ -62,7 +62,7 @@ ERROR: check-node-error node error ;
         [ node-defs-values check-values ]
         [ check-node* ]
         tri
-    ] [ throw-check-node-error ] recover ;
+    ] [ check-node-error ] recover ;
 
 SYMBOL: datastack
 SYMBOL: retainstack