member-eq-quot ( seq -- newquot )

Vocabulary

compiler.tree.propagation.transforms

Inputs

seq

an object

Outputs

newquot

an object

Definition

USING: assocs combinators kernel sequences ;

IN: compiler.tree.propagation.transforms

: member-eq-quot ( seq -- newquot )
    [ [ dupd eq? ] curry [ drop t ] ] map>alist
    [ drop f ] suffix [ cond ] curry ;