From 22b67ed3783242f2f89bf051f650e00c97a86f39 Mon Sep 17 00:00:00 2001 From: Bruno Deferrari Date: Mon, 14 Jul 2008 21:43:42 -0300 Subject: [PATCH] irc.client: Rename client message construcor, handle outgoing plain irc-messages. --- extra/irc/client/client.factor | 4 ++-- extra/irc/messages/messages.factor | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor index 65dc2fa017..c1cf2e844c 100644 --- 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 24e09467b7..1d4fb5b239 100644 --- 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 ) +: ( command parameters trailing -- irc-message ) irc-message new now >>timestamp [ [ (>>trailing) ] [ (>>parameters) ] [ (>>command) ] tri ] keep ;