USING: classes.union words ;

IN: classes.mixin

PREDICATE: mixin-class < union-class "mixin" word-prop ;

USING: classes classes.algebra classes.algebra.private
classes.mixin kernel sequences ;

M: mixin-class (classes-intersect?)
class-members [ classes-intersect? ] with any? ;

USING: classes classes.mixin classes.private kernel ;

M: mixin-class metaclass-changed
over class? [ 2drop ] [ remove-mixin-instance ] if ;

USING: classes.algebra.private classes.mixin ;

M: mixin-class normalize-class ;

USING: classes.mixin classes.private kernel ;

M: mixin-class rank-class drop 8 ;

USING: classes.mixin classes.private generic kernel words ;

M: mixin-class reset-class
[ M\ mixin-class reset-class (call-next-method) ]
[ "mixin" remove-word-prop ] bi ;

USING: classes classes.mixin kernel prettyprint.backend
prettyprint.sections see.private sequences ;

M: mixin-class see-class*
<block \ MIXIN: pprint-word dup pprint-word
<block dup class-members [
hard add-line-break \ INSTANCE: pprint-word pprint-word
pprint-word
] with each block> block> ;