diff options
| -rw-r--r-- | irc/bot.rkt | 3 |
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))) |