basis: ERROR: changes.

[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 03249db124f5d32fc866cb4e23822cfd11b499f7..bc616fe8c869584b16fc0cb1b45744c07aed5106 100644 (file)
--- a/basis/compiler/tree/checker/checker.factor
+++ b/basis/compiler/tree/checker/checker.factor
@@ -11,8 +11,12 @@ IN: compiler.tree.checker
 ERROR: check-use-error value message ;
 
 : check-use ( value uses -- )
-    [ empty? [ "No use" check-use-error ] [ drop ] if ]
-    [ all-unique? [ drop ] [ "Uses not all unique" check-use-error ] if ] 2bi ;
+    [ empty? [ "No use" throw-check-use-error ] [ drop ] if ]
+    [
+        all-unique?
+        [ drop ]
+        [ "Uses not all unique" throw-check-use-error ] if
+    ] 2bi ;
 
 : check-def-use ( -- )
     def-use get [ uses>> check-use ] assoc-each ;
@@ -58,7 +62,7 @@ ERROR: check-node-error node error ;
         [ node-defs-values check-values ]
         [ check-node* ]
         tri
-    ] [ check-node-error ] recover ;
+    ] [ throw-check-node-error ] recover ;
 
 SYMBOL: datastack
 SYMBOL: retainstack