assocs: kv-with word.

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index f7f7f0202f078d5d4a151340debb4caf46869463..da1c0c2866e7aa77237a6ce5016fe19b2b74e93b 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -52,6 +52,9 @@ ERROR: key-exists value key assoc ;
         drop set-at
     ] if ;
 
+: kv-with ( obj assoc quot -- assoc curried )
+    swapd [ [ -rot ] dip call ] 2curry ; inline
+
 <PRIVATE
 
 : (sequence>assoc) ( seq map-quot insert-quot assoc -- assoc )