From 222202d7e1aee3de4a3509f17742893100c41cf7 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 29 Jul 2022 16:30:01 -0500
Subject: [PATCH] kernel: Add withd

10 { { 1 100 } { 2 200 } { 3 300 } } [ + + . ] withd assoc-each

Quotation sees:

10 1 100
10 2 200
10 3 300
---
 core/kernel/kernel.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index 82e8553f5f..ce9c8381cb 100644
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -236,6 +236,9 @@ DEFER: if
 : 2with ( param1 param2 obj quot -- obj curried )
     with with ; inline
 
+: withd ( param obj quot -- obj curried )
+    swapd [ -rotd call ] 2curry ; inline
+
 : prepose ( quot1 quot2 -- composed )
     swap compose ; inline
 
-- 
2.34.1