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] 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 ;