defining-class? ( object -- ? )

Vocabulary
classes

Inputs and outputs
objectan 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 ;