valid-classoid? ( obj -- ? )

Vocabulary
classes.algebra

Definition

IN: classes.algebra

GENERIC: valid-classoid? ( obj -- ? )

Methods

USING: accessors classes.algebra classes.algebra.private ;

M: anonymous-complement valid-classoid?
    class>> valid-classoid? ;

USING: accessors classes.algebra classes.algebra.private
sequences ;

M: anonymous-intersection valid-classoid?
    participants>> [ valid-classoid? ] all? ;

USING: accessors classes.algebra classes.algebra.private
sequences ;

M: anonymous-union valid-classoid?
    members>> [ valid-classoid? ] all? ;

USING: accessors classes.algebra classes.maybe ;

M: maybe valid-classoid? class>> valid-classoid? ;

USING: classes.algebra kernel ;

M: object valid-classoid? drop f ;

USING: classes classes.algebra words ;

M: word valid-classoid? class? ;