(class-not) ( class -- complement )

Vocabulary

classes.algebra.private

Inputs

class

an object

Outputs

complement

an object

Definition

USING: accessors combinators kernel ;

IN: classes.algebra.private

: (class-not) ( class -- complement )
    {
        { [ dup anonymous-complement? ] [ class>> ] }
        { [ dup object eq? ] [ drop null ] }
        { [ dup null eq? ] [ drop object ] }
        [ <anonymous-complement> ]
    } cond ;