fast-lookup-table-quot ( seq -- newquot )

Vocabulary

compiler.tree.propagation.transforms

Inputs

seq

an object

Outputs

newquot

an object

Definition

USING: kernel math sequences sequences.private ;

IN: compiler.tree.propagation.transforms

: fast-lookup-table-quot ( seq -- newquot )
    fast-lookup-table-seq [
        over integer? [
            2dup bounds-check?
            [ nth-unsafe dup 255 eq? [ drop f f ] [ t ] if ]
            [ 2drop f f ] if
        ] [ 2drop f f ] if
    ] curry ;