(sequence>assoc) ( seq map-quot insert-quot assoc -- assoc )

Vocabulary

assocs.extras.private

Inputs

seq	an object
map-quot	an object
insert-quot	an object
assoc	an object

Outputs

assoc

an object

Definition

USING: kernel sequences ;

IN: assocs.extras.private

: (sequence>assoc)
    ( seq map-quot insert-quot assoc -- assoc )
    [ swap curry compose each ] keep ; inline