From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sat, 24 Dec 2016 17:58:37 +0000 (-0600)
Subject: irc: Fixing "PONG" response, calls to handle-foo commands.
X-Git-Tag: v0.4.0~56
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=382af9f4ada1170faab3efda78ae5e3b5e1d4d42;ds=sidebyside

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.
---

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 <irc-bot>) username channel-name
                                     line-text emote?)