irc.client: Fix NICK message declaration

[factor.git] / extra / irc / client / internals / internals.factor

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