irc.client: Fix removing of participant on quit

db4
Bruno Deferrari 2008-07-27 21:19:28 -03:00
parent b855b098a7
commit b30f22f125
1 changed files with 1 additions and 1 deletions

View File

@ -117,7 +117,7 @@ M: irc-listener to-listener ( message irc-listener -- )
with filter ;
: remove-participant-from-all ( nick -- )
dup listeners-with-participant [ delete-at ] with each ;
dup listeners-with-participant [ participants>> delete-at ] with each ;
: add-participant ( mode nick channel -- )
listener> [ participants>> set-at ] [ 2drop ] if* ;