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

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-disconnected ! sent when connection is lost
SINGLETON: irc-connected ! sent when connection is established
SINGLETON: irc-ready ! sent after the client is logged in
: terminate-irc ( irc-client -- )
[ is-running>> ] keep and [
@ -115,7 +116,7 @@ M: irc-listener to-listener in-messages>> mailbox-put ;
: listeners-with-participant ( nick -- seq )
irc> listeners>> values
[ [ irc-channel-listener? ] keep and [ participants>> key? ] when* ]
[ [ irc-channel-listener? ] keep and [ participants>> key? ] [ drop f ] if* ]
with filter ;
: to-listeners-with-participant ( message nickname -- )