lookup-table-at? ( assoc -- ? )

Vocabulary

compiler.tree.propagation.transforms

Inputs

assoc

an object

Outputs

?

an object

Definition

USING: assocs combinators.short-circuit math math.order
sequences ;

IN: compiler.tree.propagation.transforms

: lookup-table-at? ( assoc -- ? )
    {
        [ assoc-size 4 > ]
        [ values [ ] all? ]
        [ keys [ integer? ] all? ]
        [ keys [ 0 lookup-table-at-max between? ] all? ]
    } 1&& ;