redefine-mixin-class ( class members -- )

Vocabulary

classes.mixin.private

Inputs

class	an object
members	an object

Outputs

None

Definition

USING: classes.union.private definitions kernel words ;

IN: classes.mixin.private

: redefine-mixin-class ( class members -- )
    [ (define-union-class) ] [ drop changed-conditionally ]
    [ drop t "mixin" set-word-prop ] 2tri ;