maybe


Vocabulary
classes.maybe

Definition
USING: classes kernel words ;

IN: classes.maybe

TUPLE: maybe
{ class union{ word classoid } read-only initial: object }
;


Methods
USING: classes.algebra.private classes.maybe ;

M: maybe (flatten-class) maybe-class-or (flatten-class) ;


USING: accessors arrays classes.maybe prettyprint.custom ;

M: maybe >pprint-sequence class>> 1array ;


USING: accessors classes.maybe compiler.tree.propagation.simple
;

M: maybe add-depends-on-class class>> add-depends-on-class ;


USING: accessors classes.maybe classes.private ;

M: maybe class-name class>> class-name ;


USING: accessors arrays classes.maybe classes.union.private ;

M: maybe classes-contained-by class>> 1array ;


USING: accessors arrays classes.maybe generic ;

M: maybe implementor-classes class>> 1array ;


USING: classes.maybe kernel slots ;

M: maybe initial-value* drop f t ;


USING: accessors classes classes.maybe kernel ;

M: maybe instance? over [ class>> instance? ] [ 2drop t ] if ;


USING: classes.algebra.private classes.maybe ;

M: maybe normalize-class maybe-class-or ;


USING: classes.maybe prettyprint.custom ;

M: maybe pprint* pprint-object ;


USING: classes.maybe kernel prettyprint.custom ;

M: maybe pprint-delims drop \ maybe{ \ } ;


USING: accessors classes classes.maybe kernel ;

M: maybe predicate-def
class>> predicate-def [ [ t ] if* ] curry ;


USING: classes.maybe classes.private kernel ;

M: maybe rank-class drop 6 ;


USING: accessors classes.maybe classes.union.private ;

M: maybe union-of-builtins? class>> union-of-builtins? ;


USING: accessors classes.algebra classes.maybe ;

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


USING: accessors classes.maybe prettyprint.sections ;

M: maybe vocabulary-name class>> vocabulary>> ;


USING: classes.maybe classes.private prettyprint.backend
sequences ;

M: maybe word-name* class-name "maybe{ " " }" surround ;