anonymous-predicate

Vocabulary

classes.algebra.private

Definition

IN: classes.algebra.private

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

Methods

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

M: anonymous-predicate (classes-intersect?)
    class>> classes-intersect? ;


USING: accessors classes.algebra.private ;

M: anonymous-predicate (flatten-class) class>> (flatten-class) ;


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

M: anonymous-predicate >pprint-sequence
    [ class>> ] [ predicate>> ] bi 2array ;


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

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


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

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


USING: accessors arrays classes.algebra.private generic ;

M: anonymous-predicate implementor-classes class>> 1array ;


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

M: anonymous-predicate instance?
    2dup class>> instance?
    [ predicate>> ( object -- ? ) call-effect ] [ 2drop f ] if ;


USING: classes.algebra.private prettyprint.custom ;

M: anonymous-predicate pprint* pprint-object ;


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

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


USING: accessors classes classes.algebra.private kernel ;

M: anonymous-predicate predicate-def
    [ class>> ] [ predicate>> ] bi
    [ [ [ dup ] ] dip [ instance? ] curry compose ] dip
    [ [ drop f ] if ] curry compose ;


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

M: anonymous-predicate rank-class drop 1.5 ;