From c6e5e5128557be5c64fdf0fc59c28e4e3ec45c50 Mon Sep 17 00:00:00 2001
From: tilpner
Date: Sun, 12 Aug 2018 21:06:27 +0200
Subject: Add (part) function

---
 irc/bot.rkt | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'irc')

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)))
 
-- 
cgit v1.2.3