diff --git a/irc-bot.rkt b/irc-bot.rkt index 2e7f6e2..453499f 100644 --- a/irc-bot.rkt +++ b/irc-bot.rkt @@ -41,14 +41,11 @@ (sync (irc-connect/internal)) (join-channels)) (sleep 60) - (loop))))) - (printf "conn: ~a\n" current-irc-connection)) + (loop)))))) (define (join-channels) - (printf "join: ~a\n" current-irc-connection) (for ([c irc-channels]) (irc-join-channel current-irc-connection c))) (define (irc-paste msg) - (printf "paste: ~a\n" current-irc-connection) (for ([c irc-channels]) (irc-send-message current-irc-connection c msg)))