with-assoc ( assoc quot: ( ..a value key assoc -- ..b ) -- quot: ( ..a key value -- ..b ) )
Vocabulary
assocs.private
Definition
USING:
kernel
;
IN:
assocs.private
:
with-assoc
( assoc quot: ( ..a value key assoc -- ..b ) -- quot: ( ..a key value -- ..b ) )
curry
[
swap
]
prepose
;
inline