hash-case-table ( default assoc -- array )

Vocabulary

combinators.private

Inputs

default	an object
assoc	an object

Outputs

array

an object

Definition

USING: arrays assocs combinators kernel quotations sequences ;

IN: combinators.private

: hash-case-table ( default assoc -- array )
    V{ } [ 1array ] distribute-buckets
    [ [ [ literalize ] dip ] assoc-map linear-case-quot ] with
    map ;