From eb07be548e2a583200ef4ca0b7624fefe721f35e Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 1 Oct 2017 11:08:36 +0100 Subject: [PATCH] Bug fix: retract names on part --- racket/syndicate/drivers/irc.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/racket/syndicate/drivers/irc.rkt b/racket/syndicate/drivers/irc.rkt index 5ef3d9f..c377762 100644 --- a/racket/syndicate/drivers/irc.rkt +++ b/racket/syndicate/drivers/irc.rkt @@ -100,7 +100,9 @@ (names-acc (set))] [(regexp #px#"^:([^!]+)![^ ]* PART ([^ ]+)\r$" (list _ src tgt)) - (retract! (irc-presence C (bytes->string/utf-8 src) (bytes->string/utf-8 tgt)))] + (retract! (irc-presence C (bytes->string/utf-8 src) (bytes->string/utf-8 tgt))) + (when (equal? (bytes->string/utf-8 src) nick) + (retract! (irc-presence C ? (bytes->string/utf-8 tgt))))] [(regexp #px#"^:([^!]+)![^ ]* QUIT :(.*)\r$" (list _ src _quitmsg)) (retract! (irc-presence C (bytes->string/utf-8 src) ?))]