steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

irc.client: Fix listeners-with-participant

db4
Bruno Deferrari 2008-09-30 03:00:48 -03:00
parent 6ce09999de
commit 177abec11e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/irc/client/client.factor
View File

@ -67,6 +67,7 @@ SINGLETON: irc-listener-end ! send to a listener to stop its execution
SINGLETON: irc-end ! sent when the client isn't running anymore SINGLETON: irc-end ! sent when the client isn't running anymore
SINGLETON: irc-disconnected ! sent when connection is lost SINGLETON: irc-disconnected ! sent when connection is lost
SINGLETON: irc-connected ! sent when connection is established SINGLETON: irc-connected ! sent when connection is established
SINGLETON: irc-ready ! sent after the client is logged in
: terminate-irc ( irc-client -- ) : terminate-irc ( irc-client -- )
[ is-running>> ] keep and [ [ is-running>> ] keep and [
@ -115,7 +116,7 @@ M: irc-listener to-listener in-messages>> mailbox-put ;
: listeners-with-participant ( nick -- seq ) : listeners-with-participant ( nick -- seq )
irc> listeners>> values irc> listeners>> values
[ [ irc-channel-listener? ] keep and [ participants>> key? ] when* ] [ [ irc-channel-listener? ] keep and [ participants>> key? ] [ drop f ] if* ]
with filter ; with filter ;
: to-listeners-with-participant ( message nickname -- ) : to-listeners-with-participant ( message nickname -- )