Vocabulary
assocs.private

Inputs
assocan object
quota quotation with stack effect ( ..a value key assoc -- ..b )
quota quotation with stack effect ( ..a key value -- ..b )


Outputs
quota quotation with stack effect ( ..a value key assoc -- ..b )
quota quotation with stack effect ( ..a key value -- ..b )


Definition


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