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

Vocabulary

assocs.extras

Inputs

assoc	an object
exemplar	an object

Outputs

hashtable'

an object

Definition

USING: kernel ;

IN: assocs.extras

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