at-quot ( assoc -- quot )

Vocabulary

compiler.tree.propagation.transforms

Inputs

assoc

an object

Outputs

quot

an object

Definition

USING: assocs kernel ;

IN: compiler.tree.propagation.transforms

: at-quot ( assoc -- quot )
    dup assoc? [
        dup lookup-table-at? [
            dup fast-lookup-table-at?
            [ fast-lookup-table-quot ] [ lookup-table-quot ] if
        ] [ drop f ] if
    ] [ drop f ] if ;