expand-values-push-as ( assoc exemplar -- assoc )

Vocabulary

assocs.extras

Inputs

assoc	an object
exemplar	an object

Outputs

assoc

an object

Definition

USING: arrays kernel sequences ;

IN: assocs.extras

: expand-values-push-as ( assoc exemplar -- assoc )
    [
        [ ?1array ]
        [ [ [ 2array ] ] dip [ push ] curry compose with each ]
    ] dip assoc>object ;