intersect-flattened-classes ( seq1 seq2 -- seq3 )

Vocabulary

classes.intersection.private

Inputs

seq1	an object
seq2	an object

Outputs

seq3

an object

Definition

USING: classes.algebra kernel sequences ;

IN: classes.intersection.private

: intersect-flattened-classes ( seq1 seq2 -- seq3 )
    [ [ classes-intersect? ] with any? ] curry filter ;