member-quot ( seq -- newquot )

Vocabulary

compiler.tree.propagation.transforms

Inputs

seq

an object

Outputs

newquot

an object

Definition

USING: assocs combinators kernel math quotations sequences
sets.private ;

IN: compiler.tree.propagation.transforms

: member-quot ( seq -- newquot )
    dup length 4 <= [
        [ drop f ] swap [ literalize [ t ] ] map>alist
        linear-case-quot
    ] [ tester ] if ;