class= ( first second -- ? )
Factor handbook » The language » Objects » Classes » Class operations

Next:

class< ( first second -- ? )

Vocabulary
classes.algebra

Inputs

first	an object
second	an object

Outputs

?

an object

Definition

USING: kernel ;

IN: classes.algebra

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