predicate
Factor handbook » The language » Objects » Classes » Class predicate words

Next:

predicate? ( object -- ? )

Vocabulary
classes

Definition

USING: kernel words ;

IN: classes

PREDICATE: predicate < word "predicating" word-prop >boolean ;

Methods

USING: accessors classes classes.builtin classes.singleton
classes.tuple combinators compiler.tree.finalization kernel
words ;

M: predicate finalize-word
    "predicating" word-prop {
        {
            [ dup builtin-class? ]
            [ drop word>> cached-expansion ]
        }
        {
            [ dup tuple-class? ]
            [ drop word>> splice-predicate ]
        }
        {
            [ dup singleton-class? ]
            [ drop word>> splice-predicate ]
        }
        [ drop ]
    } cond ;


USING: classes kernel words ;

M: predicate flushable? drop t ;


USING: classes definitions generic kernel words ;

M: predicate forget*
    [ M\ predicate forget* (call-next-method) ]
    [ "predicating" remove-word-prop ] bi ;


USING: classes generic kernel words ;

M: predicate reset-word
    [ M\ predicate reset-word (call-next-method) ]
    [ "predicating" remove-word-prop ] bi ;


USING: arrays classes help kernel ;

M: predicate word-help* \ $predicate swap 2array 1array ;