Add construct-delegate back, some code still uses it

2008-07-11 00:45:53 -05:00 · 2008-07-11 00:45:53 -05:00 · 300921a026
parent 64a2b0c7a5
commit 300921a026
1 changed files with 3 additions and 0 deletions
--- 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