classes.mixin: better name for the type checking error

diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor
index 2a01a839438e2b4e88524c359342b270ce97526a..0630bc11f8c0ae3d548bfc991536951e6e68ec66 100755 (executable)
--- a/basis/debugger/debugger.factor
+++ b/basis/debugger/debugger.factor
@@ -370,7 +370,7 @@ M: bad-escape error.
 
 M: bad-literal-tuple summary drop "Bad literal tuple" ;
 
-M: check-mixin-class-error summary drop "Not a mixin class" ;
+M: not-a-mixin-class summary drop "Not a mixin class" ;
 
 M: not-found-in-roots summary
     path>> "Cannot resolve vocab: " prepend ;

diff --git a/core/classes/mixin/mixin.factor b/core/classes/mixin/mixin.factor
index bf4dfe643f1cc34344f12a0f0a429eb59ee95fd5..b9873064d328b269647a5eb6e8bdb448aa9ad75f 100644 (file)
--- a/core/classes/mixin/mixin.factor
+++ b/core/classes/mixin/mixin.factor
@@ -18,12 +18,10 @@ M: mixin-class reset-class
 
 M: mixin-class rank-class drop 8 ;
 
-ERROR: check-mixin-class-error class ;
+ERROR: not-a-mixin-class class ;
 
 : check-mixin-class ( mixin -- mixin )
-    dup mixin-class? [
-        check-mixin-class-error
-    ] unless ;
+    dup mixin-class? [ not-a-mixin-class ] unless ;
 
 <PRIVATE