predicate-quot ( predicates -- quot )

Vocabulary

classes.union.private

Inputs

predicates

an object

Outputs

quot

an object

Definition

USING: assocs combinators kernel sequences ;

IN: classes.union.private

: predicate-quot ( predicates -- quot )
    unclip swap [ [ dup ] prepend [ drop t ] ] { } map>assoc
    alist>quot ;