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

db4
Bruno Deferrari 2008-07-14 21:43:42 -03:00
parent 7a09b4aed3
commit 22b67ed378
2 changed files with 3 additions and 3 deletions

View File

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

View File

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