metaclass-changed ( use class -- ) - Factor Documentation

metaclass-changed ( use class -- )

Vocabulary
classes .private

Inputs

use a class

class a class

Outputs
None

Word description
Notifies the class '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 ;