sequence>assoc! ( assoc seq map-quot: ( x -- ..y ) insert-quot: ( ..y assoc -- ) -- assoc )

Vocabulary

assocs.extras

Inputs

assoc	an object
seq	an object
map-quot	a quotation with stack effect ( x -- ..y )
insert-quot	a quotation with stack effect ( ..y assoc -- )

Outputs

assoc

an object

Definition

USING: assocs.extras.private kernel ;

IN: assocs.extras

: sequence>assoc!
    ( assoc seq map-quot: ( x -- ..y ) insert-quot: ( ..y assoc -- ) -- assoc )
    roll (sequence>assoc) ; inline