issue #358: Rename check-method and check-mixin-class TUPLE:s to ERROR:s.

diff --git a/core/classes/mixin/mixin.factor b/core/classes/mixin/mixin.factor
index ec5c2ef2e41e14eadd4c550a23b4e7a58e63ec15..706651cacf730e0d4c93cb9ce67cf82f643f3db7 100644 (file)
--- a/core/classes/mixin/mixin.factor
+++ b/core/classes/mixin/mixin.factor
@@ -18,11 +18,11 @@ M: mixin-class reset-class
 
 M: mixin-class rank-class drop 8 ;
 
-TUPLE: check-mixin-class class ;
+ERROR: check-mixin-class-error class ;
 
 : check-mixin-class ( mixin -- mixin )
     dup mixin-class? [
-        \ check-mixin-class boa throw
+        check-mixin-class-error
     ] unless ;
 
 <PRIVATE

diff --git a/core/generic/generic.factor b/core/generic/generic.factor
index 3e3a13539258de22fe9bf709ad2c872e2f67014d..e81212bf181faccd7947cd2abf2c1858ec900bc3 100644 (file)
--- a/core/generic/generic.factor
+++ b/core/generic/generic.factor
@@ -89,11 +89,11 @@ ERROR: no-next-method method ;
 : (call-next-method) ( method -- )
     dup next-method-quot [ call ] [ no-next-method ] ?if ;
 
-TUPLE: check-method class generic ;
+ERROR: check-method-error class generic ;
 
 : check-method ( classoid generic -- class generic )
     2dup [ classoid? ] [ generic? ] bi* and [
-        \ check-method boa throw
+        check-method-error
     ] unless ; inline
 
 : remake-generic ( generic -- )