lookup-table-assoc? ( obj -- ? )

Vocabulary

compiler.tree.propagation.transforms

Inputs

obj

an object

Outputs

?

an object

Definition

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

IN: compiler.tree.propagation.transforms

: lookup-table-assoc? ( obj -- ? )
    dup sequence?
    [ [ { [ sequence? ] [ length 2 >= ] } 1&& ] all? ]
    [ assoc? ] if ;