irc.client: Fix NICK message declaration

diff --git a/extra/irc/client/internals/internals.factor b/extra/irc/client/internals/internals.factor
index 2081ae4510545650e9dc302d961ef3835301d6f2..5d7cca4bfaa84701eeb430d00dd4b747ba60ec86 100644 (file)
--- a/extra/irc/client/internals/internals.factor
+++ b/extra/irc/client/internals/internals.factor
@@ -91,7 +91,7 @@ M: irc-message handle-outgoing-irc irc-message>string irc-print t ;
 : handle-reader-message ( irc-message -- ) irc> in-messages>> mailbox-put ;
 
 : (handle-disconnect) ( -- )
-    irc> in-messages>> irc-disconnected swap mailbox-put
+    irc-disconnected irc> in-messages>> mailbox-put
     irc> reconnect-time>> sleep
     (connect-irc)
     (do-login) ;

diff --git a/extra/irc/messages/messages.factor b/extra/irc/messages/messages.factor
index 2ea476e1b44e47e341929620866e656b3fe477a3..a6bf02f8a700e60af3153760a77123ad81b99954 100755 (executable)
--- a/extra/irc/messages/messages.factor
+++ b/extra/irc/messages/messages.factor
@@ -7,7 +7,7 @@ IN: irc.messages
 
 ! connection
 IRC: pass        "PASS"    password ;
-IRC: nick        "NICK"    nickname ;
+IRC: nick        "NICK"    : nickname ;
 IRC: user        "USER"    user mode _ : realname ;
 IRC: oper        "OPER"    name password ;
 IRC: mode        "MODE"    name mode parameter ;