simple-generic? ( object -- ? )

Vocabulary

generic.standard

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the simple-generic class.

Definition

USING: accessors kernel words ;

IN: generic.standard

: simple-generic? ( object -- ? )
    dup standard-generic?
    [ "combination" word-prop #>> 0 = ] [ drop f ] if ;