superclass-of? ( class superclass -- ? )

Vocabulary

classes

Inputs

class	an object
superclass	an object

Outputs

?

an object

Definition

USING: sequences ;

IN: classes

: superclass-of? ( class superclass -- ? )
    superclasses-of member-eq? ;