metaclass-changed ( use class -- )

Vocabulary

classes.private

Inputs

use	a class
class	a class

Outputs

None

Word description

Notifies the class 'class' that its metaclass 'use' has changed.

Definition

IN: classes.private

GENERIC: metaclass-changed ( use class -- )

Methods

USING: classes classes.private kernel ;

M: class metaclass-changed
    swap class? [ drop ] [ forget-class ] if ;


USING: classes classes.mixin classes.private kernel ;

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


USING: classes.private classes.tuple kernel words ;

M: tuple-class metaclass-changed
    nip tuple over "slots" word-prop define-tuple-class ;