fixing bug with current tdelta interface

[8sync.git] / eightsync / systems / irc.scm

diff --git a/eightsync/systems/irc.scm b/eightsync/systems/irc.scm
index bf450b94efc526ef680e9472c7804438b5386ee9..e45db1a7c5b81be378a8327ccf4142c058be25d4 100755 (executable)
--- a/eightsync/systems/irc.scm
+++ b/eightsync/systems/irc.scm
@@ -187,7 +187,7 @@
                (string-join (cons first-word rest-message) " ")
                #f)))))
 
-(define (echo-back-message my-name speaker
+(define (echo-back-message socket my-name speaker
                            channel-name message is-action)
   (if is-action
       (format #t "~a emoted ~s in channel ~a\n"
@@ -208,7 +208,8 @@
          (receive (channel-name message is-action)
              (condense-privmsg-line (irc-line-params parsed-line))
            (let ((username (irc-line-username parsed-line)))
-             (handle-privmsg my-username username channel-name message is-action))))
+             (handle-privmsg socket my-username username
+                             channel-name message is-action))))
         (_
          (display line)
          (newline)))))
@@ -225,7 +226,7 @@
         (set! buffer (cons (read-char socket) buffer))
         (match buffer
           ((#\newline #\return (? char? line-chars) ...)
-           (%sync (%run (handle-line
+           (%8sync (%run (handle-line
                          socket
                          (list->string (reverse line-chars))
                          username)))