From e42a2d8825a7a280a11610ca9910de643576654d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 6 Oct 2008 15:01:01 -0500
Subject: [PATCH] clean up constructor

---
 extra/irc/client/client.factor | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor
index d40c7d400d..463e35f415 100755
--- a/extra/irc/client/client.factor
+++ b/extra/irc/client/client.factor
@@ -19,9 +19,16 @@ C: <irc-profile> irc-profile
 
 TUPLE: irc-client profile stream in-messages out-messages
        chats is-running nick connect reconnect-time is-ready ;
+
 : <irc-client> ( profile -- irc-client )
-    [ f <mailbox> <mailbox> H{ } clone f ] keep nickname>>
-    [ <inet> latin1 <client> ] 15 seconds f irc-client boa ;
+    irc-client new
+        swap >>profile
+        <mailbox> >>in-messages
+        <mailbox> >>out-messages
+        H{ } clone >>chats
+        dup profile>> nickname>> >>nick
+        [ <inet> latin1 <client> ] >>connect
+        15 seconds >>reconnect-time ;
 
 TUPLE: irc-chat in-messages client ;
 TUPLE: irc-server-chat < irc-chat ;