expand-keys-push-as ( assoc exemplar -- hashtable' )

Vocabulary

assocs.extras

Inputs

assoc	an object
exemplar	an object

Outputs

hashtable'

an object

Definition

USING: arrays kernel sequences ;

IN: assocs.extras

: expand-keys-push-as ( assoc exemplar -- hashtable' )
    [ [ [ ?1array ] dip ] [ '[ _ 2array _ push ] each ] ] dip
    assoc>object ;