(multi-predicate) ( class picker -- quot )

Vocabulary

multi-methods

Inputs

class	an object
picker	an object

Outputs

quot

an object

Definition

USING: classes kernel sequences ;

IN: multi-methods

: (multi-predicate) ( class picker -- quot )
    swap predicate-def append ;