define-class ( word superclass members participants metaclass -- )

Vocabulary

classes.private

Inputs

word	a word
superclass	a class
members	a sequence of classs
participants	a sequence of classs
metaclass	a class

Outputs

None

Word description

Sets a property indicating this word is a class word, thus making it an instance of class, and registers it with update-map.

Notes

Calling this word directly is not necessary in most cases. Higher-level words call it automatically.

Definition

USING: definitions kernel ;

IN: classes.private

: define-class
    ( word superclass members participants metaclass -- )
    [ check-inheritance ] 3dip make-class-props
    [ (define-class) ] [ drop changed-definition ] 2bi ;