basis: ERROR: changes.

[factor.git] / basis / compiler / tree / def-use / def-use.factor

diff --git a/basis/compiler/tree/def-use/def-use.factor b/basis/compiler/tree/def-use/def-use.factor
index d572ba0965f5b9a16b76403587d74630bdb82c08..786e276def9f557d22ed3abbbfa87a9d8c5ef71a 100644 (file)
--- a/basis/compiler/tree/def-use/def-use.factor
+++ b/basis/compiler/tree/def-use/def-use.factor
@@ -18,7 +18,7 @@ TUPLE: definition value node uses ;
 ERROR: no-def-error value ;
 
 : (def-of) ( value def-use -- definition )
-    ?at [ no-def-error ] unless ; inline
+    ?at [ throw-no-def-error ] unless ; inline
 
 : def-of ( value -- definition )
     def-use get (def-of) ;
@@ -27,7 +27,7 @@ ERROR: multiple-defs-error ;
 
 : (def-value) ( node value def-use -- )
     2dup key? [
-        multiple-defs-error
+        throw-multiple-defs-error
     ] [
         [ [ <definition> ] keep ] dip set-at
     ] if ; inline