superclass<= ( first second -- ? )

Vocabulary
classes.algebra.private

Definition

USING: classes classes.algebra kernel ;

IN: classes.algebra.private

: superclass<= ( first second -- ? )
    swap superclass dup [ swap class<= ] [ 2drop f ] if ;