class< ( first second -- ? )
Factor handbook » The language » Objects » Classes » Class linearization

Next:

sort-classes ( seq -- newseq )

Vocabulary
classes.algebra

Inputs

first	an object
second	an object

Outputs

?

an object

Definition

USING: classes.private combinators kernel math ;

IN: classes.algebra

: class< ( first second -- ? )
    {
        { [ 2dup class<= not ] [ 2drop f ] }
        { [ 2dup swap class<= not ] [ 2drop t ] }
        [ [ rank-class ] bi@ < ]
    } cond ;