predicate-quot ( class -- quot )

Vocabulary

classes.predicate.private

Inputs

class

an object

Outputs

quot

an object

Definition

IN: classes.predicate.private

GENERIC: predicate-quot ( class -- quot )

Methods

USING: classes classes.predicate classes.predicate.private
kernel words ;

M: predicate-class predicate-quot
    [ superclass-of predicate-def ]
    [ "predicate-definition" word-prop ] bi
    [ [ [ dup ] ] dip compose ] dip [ [ drop f ] if ] curry
    compose ;


USING: classes.predicate.private classes.singleton
classes.singleton.private ;

M: singleton-class predicate-quot singleton-predicate-quot ;