summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--irc/bot.rkt3
1 files changed, 3 insertions, 0 deletions
diff --git a/irc/bot.rkt b/irc/bot.rkt
index ff36dd0..7975786 100644
--- a/irc/bot.rkt
+++ b/irc/bot.rkt
@@ -84,6 +84,9 @@
(define (join . chans)
(send (msg 'JOIN chans #f)))
+(define (part chans [reason #f])
+ (send (msg 'PART (list chans) reason)))
+
(define (quit reason)
(send (msg 'QUIT '() reason)))