X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fsystems%2Firc.scm;h=495cbca4f968dfe4b4c4b03c7629c78cc2e12110;hp=536c9a26ce38ff3e2002fa6b7e15f18db375625f;hb=382af9f4ada1170faab3efda78ae5e3b5e1d4d42;hpb=165231476f466b4dbeca51c981cf0dfa2963ff16

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?)