+(define (irc-send-message socket channel message)
+ (irc-format socket "PRIVMSG ~a :~a" channel message))
+
+(define-syntax-rule (irc-send-formatted socket channel format-string
+ args ...)
+ (irc-format socket "PRIVMSG ~a :~a" channel
+ (format #f format-string args ...)))
+