create-predicate-word ( word -- predicate )


Vocabulary
classes

Inputs
wordan object


Outputs
predicatean object


Definition
USING: accessors kernel sequences words ;

IN: classes

: create-predicate-word ( word -- predicate )
[ name>> "?" append ] [ vocabulary>> ] bi create-word
dup predicate? [ dup reset-generic ] unless ;