classes: use check-instance in a few places, to remove duplication.

[factor.git] / core / classes / mixin / mixin.factor

diff --git a/core/classes/mixin/mixin.factor b/core/classes/mixin/mixin.factor
index 86a25e4ba798be125a4bc223880853596a8e4ec1..940be16f9700d0a84216273bf283639bdc8e2c00 100644 (file)
--- a/core/classes/mixin/mixin.factor
+++ b/core/classes/mixin/mixin.factor
@@ -61,13 +61,8 @@ M: mixin-class rank-class drop 8 ;
 
 PRIVATE>
 
-ERROR: not-a-class object ;
-
-ERROR: not-a-mixin-class object ;
-
 : check-types ( class mixin -- class mixin )
-    [ dup class? [ not-a-class ] unless ]
-    [ dup mixin-class? [ not-a-mixin-class ] unless ] bi* ;
+    [ class check-instance ] [ mixin-class check-instance ] bi* ;
 
 : add-mixin-instance ( class mixin -- )
     check-types [ 2drop ] [ (add-mixin-instance) ] if-mixin-member? ;