check-metaclass ( class metaclass -- usages/f )

Vocabulary

classes.private

Inputs

class	an object
metaclass	an object

Outputs

usages/f

an object

Definition

USING: classes kernel words ;

IN: classes.private

: check-metaclass ( class metaclass -- usages/f )
    over class? [
        over "metaclass" word-prop eq?
        [ drop f ] [ class-usage ] if
    ] [ 2drop f ] if ;