with-assoc ( assoc quot: ( ..a value key assoc -- ..b ) -- quot: ( ..a key value -- ..b ) )

Vocabulary

assocs

Inputs

assoc	an object
quot	a quotation with stack effect ( ..a value key assoc -- ..b )

Outputs

quot	a quotation with stack effect ( ..a key value -- ..b )

Definition

USING: kernel ;

IN: assocs

: with-assoc
    ( assoc quot: ( ..a value key assoc -- ..b ) -- quot: ( ..a key value -- ..b ) )
    curry [ swap ] prepose ; inline