anonymous-union

Vocabulary

classes.algebra.private

Definition

IN: classes.algebra.private

TUPLE: anonymous-union { members read-only } ;

Methods

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

M: anonymous-union (classes-intersect?)
    members>> [ classes-intersect? ] with any? ;


USING: accessors classes.algebra.private sequences ;

M: anonymous-union (flatten-class)
    members>> [ (flatten-class) ] each ;


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

M: anonymous-union >pprint-sequence members>> ;


USING: accessors classes.algebra.private sequences
stack-checker.dependencies ;

M: anonymous-union add-depends-on-class
    members>> [ add-depends-on-class ] each ;


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

M: anonymous-union class-name
    members>> [ class-name ] map join-words ;


USING: accessors classes.algebra.private generic ;

M: anonymous-union implementor-classes members>> ;


USING: accessors assocs classes classes.algebra
classes.algebra.private combinators kernel sequences slots ;

M: anonymous-union initial-value*
    {
        { [ f over instance? ] [ drop f t ] }
        { [ 0 over instance? ] [ drop 0 t ] }
        [
            members>> sort-classes [ initial-value ] map>alist
            ?last [ second t ] [ f f ] if*
        ]
    } cond ;


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

M: anonymous-union instance? members>> [ instance? ] with any? ;


USING: classes.algebra.private prettyprint.custom ;

M: anonymous-union pprint* pprint-object ;


USING: classes.algebra.private kernel prettyprint.custom ;

M: anonymous-union pprint-delims drop \ union{ \ } ;


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

M: anonymous-union predicate-def
    members>> union-predicate-quot ;


USING: classes.algebra.private classes.private kernel ;

M: anonymous-union rank-class drop 6 ;


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

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