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 ] curry ] dip [ push ] curry compose each ]
    ] dip assoc>object ;