change-mixin-class ( class mixin quot -- )

Vocabulary

classes.mixin.private

Inputs

class	an object
mixin	an object
quot	an object

Outputs

None

Definition

USING: classes kernel words ;

IN: classes.mixin.private

: change-mixin-class ( class mixin quot -- )
    [ [ class-members swap bootstrap-word ] dip call ] [ drop ]
    2bi swap redefine-mixin-class ; inline