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

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