From 64be3e3f81215cd6126375da891a0b6c22235109 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 3 Sep 2008 12:33:00 -0500
Subject: [PATCH 1/3] remove code that dealt with delegates

---
 extra/inverse/inverse.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/inverse/inverse.factor b/extra/inverse/inverse.factor
index 1e71abf76d..c7925b94be 100755
--- a/extra/inverse/inverse.factor
+++ b/extra/inverse/inverse.factor
@@ -207,7 +207,7 @@ DEFER: _
     "predicate" word-prop [ dupd call assure ] curry ;
 
 : slot-readers ( class -- quot )
-    all-slots rest ! tail gets rid of delegate
+    all-slots
     [ name>> reader-word 1quotation [ keep ] curry ] map concat
     [ ] like [ drop ] compose ;
 

From 7aa0086278d82727a4fbd002cb5429766bc8d6b7 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 3 Sep 2008 12:34:34 -0500
Subject: [PATCH 2/3] fix docs

---
 basis/mirrors/mirrors-docs.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/mirrors/mirrors-docs.factor b/basis/mirrors/mirrors-docs.factor
index 55896a9811..d6a8d51fbe 100755
--- a/basis/mirrors/mirrors-docs.factor
+++ b/basis/mirrors/mirrors-docs.factor
@@ -30,7 +30,7 @@ HELP: <mirror> ( object -- mirror )
         "TUPLE: circle center radius ;"
         "C: <circle> circle"
         "{ 100 50 } 15 <circle> <mirror> >alist ."
-        "{ { \"delegate\" f } { \"center\" { 100 50 } } { \"radius\" 15 } }"
+        "{ { \"center\" { 100 50 } } { \"radius\" 15 } }"
     }
 } ;
 

From 8ebb7f9be7c95a83326ec7e0f9dcd7fc1c65c1af Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 3 Sep 2008 12:39:30 -0500
Subject: [PATCH 3/3] fix irc for delegate removal

---
 extra/irc/messages/messages.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/irc/messages/messages.factor b/extra/irc/messages/messages.factor
index 201e8de9e7..d3eca92f15 100755
--- a/extra/irc/messages/messages.factor
+++ b/extra/irc/messages/messages.factor
@@ -127,4 +127,4 @@ M: sender-in-prefix irc-message-sender ( sender-in-prefix -- sender )
     } case
     [ [ tuple-slots ] [ parameters>> ] bi append ] dip
     [ all-slots over [ length ] bi@ min head >quotation ] keep
-    '[ @ , boa nip ] call ;
+    '[ @ , boa ] call ;