maybe

Vocabulary

classes.maybe

Definition

USING: classes kernel ;

IN: classes.maybe

TUPLE: maybe { class 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 stack-checker.dependencies ;

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 classes.maybe ;

M: maybe contained-classes 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.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 ;