From daef7b3ea4e2d4c598ced62fd0b0043fb28b2799 Mon Sep 17 00:00:00 2001
From: Thomas Hintz <t@thintz.com>
Date: Wed, 8 Oct 2014 17:22:07 -0700
Subject: [PATCH] Fix echo-server test.

---
 test/echo-server.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/echo-server.scm b/test/echo-server.scm
index 596fc49..96a8c68 100644
--- 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))