define-predicate ( class quot -- ) (original) (raw)

define-predicate ( class quot -- )

Vocabulary
classes

Inputs

class a class
quot a quotation with stack effect ( obj -- ? )

Outputs
None

Word description
Defines a predicate word for a class.

Notes
Calling this word directly is not necessary in most cases. Higher-level words call it automatically.

Definition

USING: kernel words ;

IN: classes

: define-predicate ( class quot -- )
[ predicate-word ] dip ( object -- ? ) define-declared ;