irc: Fixing "PONG" response, calls to handle-foo commands.
authorChristopher Allan Webber <cwebber@dustycloud.org>
Sat, 24 Dec 2016 17:58:37 +0000 (11:58 -0600)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Sat, 24 Dec 2016 17:58:37 +0000 (11:58 -0600)
* 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

index 536c9a26ce38ff3e2002fa6b7e15f18db375625f..495cbca4f968dfe4b4c4b03c7629c78cc2e12110 100755 (executable)
       (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?)