fast-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

: fast-lookup-table-at? ( assoc -- ? )
    values
    { [ [ integer? ] all? ] [ [ 0 254 between? ] all? ] } 1&& ;