From 382af9f4ada1170faab3efda78ae5e3b5e1d4d42 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sat, 24 Dec 2016 11:58:37 -0600 Subject: [PATCH] irc: Fixing "PONG" response, calls to handle-foo commands. * 8sync/systems/irc.scm (dispatch-raw-line): Append irc-eol to PONG response. Fix calls to hanle-line and handle-misc-input, which recently were renamed. --- 8sync/systems/irc.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/8sync/systems/irc.scm b/8sync/systems/irc.scm index 536c9a2..495cbca 100755 --- a/8sync/systems/irc.scm +++ b/8sync/systems/irc.scm @@ -226,14 +226,15 @@ (parse-line raw-line) (match line-command ("PING" - (display "PONG" (irc-bot-socket irc-bot))) + (display (string-append "PONG" irc-eol) + (irc-bot-socket irc-bot))) ("PRIVMSG" (receive (channel-name line-text emote?) (condense-privmsg-line line-params) (let ((username (irc-line-username line-prefix))) - (irc-bot-handle-line irc-bot username channel-name - line-text emote?)))) - (_ (irc-bot-handle-misc-input irc-bot raw-line))))) + (handle-line irc-bot username channel-name + line-text emote?)))) + (_ (handle-misc-input irc-bot raw-line))))) (define-method (handle-line (irc-bot ) username channel-name line-text emote?) -- 2.31.1