assoc>object ( assoc map-quot insert-quot exemplar -- object )

Vocabulary

assocs.extras

Inputs

assoc	an object
map-quot	an object
insert-quot	an object
exemplar	an object

Outputs

object

an object

Definition

USING: assocs kernel ;

IN: assocs.extras

: assoc>object
    ( assoc map-quot insert-quot exemplar -- object )
    clone [ swap curry compose assoc-each ] keep ; inline