IN: classes.algebra.private

TUPLE: anonymous-intersection { participants read-only } ;

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

M: anonymous-intersection (classes-intersect?)
participants>> [ classes-intersect? ] with all? ;

USING: accessors classes.algebra classes.algebra.private
classes.builtin classes.intersection.private make sequences ;

M: anonymous-intersection (flatten-class)
participants>>
[ full-cover ] [
[ flatten-class ] [ intersect-flattened-classes ]
map-reduce %
] if-empty ;

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

M: anonymous-intersection >pprint-sequence participants>> ;

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

M: anonymous-intersection add-depends-on-class
participants>> [ add-depends-on-class ] each ;

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

M: anonymous-intersection class-name
participants>> [ class-name ] map join-words ;

USING: accessors classes.algebra.private generic ;

M: anonymous-intersection implementor-classes participants>> ;

USING: accessors assocs classes classes.algebra
classes.algebra.private