tuple-union-predicate-quot/1 ( tuple-classes -- quot )

Vocabulary

classes.union.private

Inputs

tuple-classes

an object

Outputs

quot

an object

Definition

USING: kernel sequences slots.private ;

IN: classes.union.private

: tuple-union-predicate-quot/1 ( tuple-classes -- quot )
    [ [ eq? ] curry ] map predicate-quot [ 7 slot ] prepose ;