consult-method? ( object -- ? )

Vocabulary

delegate.private

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the consult-method class.

Definition

USING: generic kernel words ;

IN: delegate.private

: consult-method? ( object -- ? )
    dup method?
    [ "consultation" word-prop >boolean ] [ drop f ] if ;