From b30f22f125c3e4c949ad8cb4fd98b4cf8e881229 Mon Sep 17 00:00:00 2001 From: Bruno Deferrari Date: Sun, 27 Jul 2008 21:19:28 -0300 Subject: [PATCH] irc.client: Fix removing of participant on quit --- extra/irc/client/client.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor index 888332dc1f..42682154cd 100644 --- a/extra/irc/client/client.factor +++ b/extra/irc/client/client.factor @@ -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* ;