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 ;