irc.client: Rename client message construcor, handle outgoing plain irc-messages.

diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor
index 65dc2fa0173b839c5abd0527b6a583a276afc524..c1cf2e844cff4d3f859b3207eec65f4bf793079b 100644 (file)
--- a/extra/irc/client/client.factor
+++ b/extra/irc/client/client.factor
@@ -209,8 +209,8 @@ M: irc-broadcasted-message handle-incoming-irc ( irc-broadcasted-message -- )
 
 GENERIC: handle-outgoing-irc ( obj -- )
 
-! M: irc-message handle-outgoing-irc ( irc-message -- )
-!    irc-message>string irc-print ;
+M: irc-message handle-outgoing-irc ( irc-message -- )
+    irc-message>client-line irc-print ;
 
 M: privmsg handle-outgoing-irc ( privmsg -- )
     [ name>> ] [ trailing>> ] bi /PRIVMSG ;

diff --git a/extra/irc/messages/messages.factor b/extra/irc/messages/messages.factor
index 24e09467b790c7097d77bef62d6e9740327bd2aa..1d4fb5b2391112025ea3b89092cca920787ab417 100644 (file)
--- a/extra/irc/messages/messages.factor
+++ b/extra/irc/messages/messages.factor
@@ -21,7 +21,7 @@ TUPLE: mode < irc-message name channel mode ;
 TUPLE: names-reply < irc-message who = channel ;
 TUPLE: unhandled < irc-message ;
 
-: make-client-message ( command parameters trailing -- irc-message )
+: <irc-client-message> ( command parameters trailing -- irc-message )
     irc-message new now >>timestamp
     [ [ (>>trailing) ] [ (>>parameters) ] [ (>>command) ] tri ] keep ;