defining-class? ( object -- ? )

Vocabulary

classes

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the defining-class class.

Definition

USING: kernel words ;

IN: classes

: defining-class? ( object -- ? )
    dup word? [ "defining-class" word-prop ] [ drop f ] if ;