X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=sidebyside;f=eightsync%2Fsystems%2Firc.scm;h=ac9c4e64b65a50672a1883df67bd33cf98860f5c;hb=39fce509440e467188270625bf728b1c57ef9e26;hp=bf450b94efc526ef680e9472c7804438b5386ee9;hpb=555743be477968b12562c5b6c92000ecfe9556f2;p=8sync.git

diff --git a/eightsync/systems/irc.scm b/eightsync/systems/irc.scm
index bf450b9..ac9c4e6 100755
--- 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)))))