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

Vocabulary

assocs.extras

Inputs

assoc	an object
exemplar	an object

Outputs

hashtable'

an object

Definition

USING: assocs kernel sequences ;

IN: assocs.extras

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