Fix echo-server test.

2014-10-08 17:22:07 -07:00
parent de406f1151
commit daef7b3ea4
1 changed files with 1 additions and 1 deletions
--- a/test/echo-server.scm
+++ b/test/echo-server.scm
@@ -12,7 +12,7 @@
           (let loop ()
             (receive (data type) (receive-message)
                      (unless (eq? type 'connection-close)
-                              (send-message type data)
+                              (send-message data type)
                              (loop))))))))

 (debug-log (current-output-port))