anonymous-complement

Vocabulary

classes.algebra.private

Definition

IN: classes.algebra.private

TUPLE: anonymous-complement { class read-only } ;

Methods

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

M: anonymous-complement (classes-intersect?)
    class>> class<= not ;


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

M: anonymous-complement (flatten-class) drop full-cover ;


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

M: anonymous-complement >pprint-sequence class>> 1array ;


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

M: anonymous-complement add-depends-on-class
    class>> add-depends-on-class ;


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

M: anonymous-complement class-name class>> class-name ;


USING: accessors classes classes.algebra.private kernel ;

M: anonymous-complement instance?
    over [ class>> instance? not ] [ 2drop t ] if ;


USING: classes.algebra.private prettyprint.custom ;

M: anonymous-complement pprint* pprint-object ;


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

M: anonymous-complement pprint-delims drop \ not{ \ } ;


USING: accessors classes classes.algebra.private kernel ;

M: anonymous-complement predicate-def
    class>> [ over [ instance? not ] [ 2drop t ] if ] curry ;


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

M: anonymous-complement rank-class drop 3 ;


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

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