Switch from (%8sync (%run)) to just (%8sync) or (%8sync-run)

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

diff --git a/8sync/systems/irc.scm b/8sync/systems/irc.scm
index 80d4ce182f4fe2a7ba65aa729f56c63f0de3252c..f8e01b43c02a0f94309538a368be54cb6b966a8f 100755 (executable)
--- a/8sync/systems/irc.scm
+++ b/8sync/systems/irc.scm
@@ -241,10 +241,10 @@
              ;; reset buffer
              (set! buffer '())
              ;; run it
-             (%8sync-run (handle-line
-                          socket
-                          ready-line
-                          username))))
+             (%8sync (handle-line
+                      socket
+                      ready-line
+                      username))))
           (_ #f)))
       ;; I need to shut things down on EOF object
       (cond