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


Vocabulary
assocs.extras

Inputs
assocan object
seqan object
map-quota quotation with stack effect ( x -- ..y )
insert-quota quotation with stack effect ( ..y assoc -- )


Outputs
assocan object


Definition


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