From 2e65fabf30f101b948962dd88d3250719d65a7d7 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 3 Jun 2018 21:33:44 -0500
Subject: [PATCH] assocs: kv-with word.

---
 extra/assocs/extras/extras.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index f7f7f0202f..da1c0c2866 100644
--- 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 )