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 536c9a26ce38ff3e2002fa6b7e15f18db375625f..495cbca4f968dfe4b4c4b03c7629c78cc2e12110 100755 (executable)
--- a/8sync/systems/irc.scm
+++ b/8sync/systems/irc.scm
@@ -226,14 +226,15 @@
       (parse-line raw-line)
     (match line-command
       ("PING"
       (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)))
       ("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?)
 
 (define-method (handle-line (irc-bot <irc-bot>) username channel-name
                                     line-text emote?)