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

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

object

an object

Definition

USING: kernel ;

IN: assocs.extras

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