check-method ( classoid generic -- class generic )


Vocabulary
generic

Inputs
generica generic


Outputs
classa class
generica generic


Word description
Asserts that class is a class word and generic is a generic word, throwing a check-method error if the assertion fails.

Error description
Thrown if M: or create-method is given an invalid class or generic word.

Definition
USING: classes kernel ;

IN: generic

: check-method ( classoid generic -- class generic )
2dup [ classoid? ] [ generic? ] bi* and
[ check-method-error ] unless ; inline