intersect-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

: intersect-quot ( seq -- quot: ( seq' -- seq'' ) )
    [ tester ] keep
    [ [ [ members ] ] dip [ filter ] curry compose ] dip
    [ set-like ] curry compose ;