From 75014811c44d826cad32e4b65640637dc2e7838a Mon Sep 17 00:00:00 2001 From: Bruno Deferrari Date: Tue, 2 Jun 2009 09:09:27 -0300 Subject: [PATCH] irc.client: Temporary possible fix to the bug reported by anyhoo --- extra/irc/client/internals/internals.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/extra/irc/client/internals/internals.factor b/extra/irc/client/internals/internals.factor index 1b4a4550dc..b065dfe2f0 100644 --- a/extra/irc/client/internals/internals.factor +++ b/extra/irc/client/internals/internals.factor @@ -75,8 +75,9 @@ M: to-many-chats message-forwards sender>> participant-chats ; GENERIC: process-message ( irc-message -- ) M: object process-message drop ; M: ping process-message trailing>> /PONG ; -M: join process-message [ sender>> ] [ chat> ] bi join-participant ; -M: part process-message [ sender>> ] [ chat> ] bi part-participant ; +! FIXME: it shouldn't be checking for the presence of chat here... +M: join process-message [ sender>> ] [ chat> ] bi [ join-participant ] [ drop ] if* ; +M: part process-message [ sender>> ] [ chat> ] bi [ part-participant ] [ drop ] if* ; M: quit process-message sender>> quit-participant ; M: nick process-message [ trailing>> ] [ sender>> ] bi rename-participant* ; M: rpl-nickname-in-use process-message name>> "_" append /NICK ;