(remove-mixin-instance) ( class mixin -- )

Vocabulary

classes.mixin.private

Inputs

class	an object
mixin	an object

Outputs

None

Definition

USING: assocs classes classes.private combinators kernel
sequences words ;

IN: classes.mixin.private

: (remove-mixin-instance) ( class mixin -- )
    dup class-usages {
        [ drop [ swap remove ] change-mixin-class ]
        [ drop "instances" word-prop delete-at ]
        [ 2nip [ update-class ] each ]
        [ nip update-methods ]
    } 3cleave ;