intersects?-quot ( seq -- quot: ( seq' -- seq'' ) )

Vocabulary

compiler.tree.propagation.transforms

Inputs

seq

an object

Outputs

quot	a quotation with stack effect ( seq' -- seq'' )

Definition

USING: kernel sequences sets sets.private ;

IN: compiler.tree.propagation.transforms

: intersects?-quot ( seq -- quot: ( seq' -- seq'' ) )
    tester [ [ members ] ] dip [ any? ] curry compose ;