From 300921a026843e28b5acc5ac42c66d6e2fc1dc57 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 11 Jul 2008 00:45:53 -0500
Subject: [PATCH] Add construct-delegate back, some code still uses it

---
 core/kernel/kernel.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index bcf75b9e0f..6b785a61ba 100755
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -210,3 +210,6 @@ GENERIC# set-slots 1 ( ... tuple slots -- )
 
 : construct ( ... slots class -- tuple )
     new [ swap set-slots ] keep ; inline
+
+: construct-delegate ( delegate class -- tuple )
+    >r { set-delegate } r> construct ; inline