role? ( object -- ? )

Vocabulary

roles

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the role class.

Definition

USING: classes.mixin kernel words ;

IN: roles

: role? ( object -- ? )
    dup mixin-class?
    [ "role-slots" word-prop >boolean ] [ drop f ] if ;