Fix echo-server test.

This commit is contained in:
Thomas Hintz 2014-10-08 17:22:07 -07:00
parent de406f1151
commit daef7b3ea4
1 changed files with 1 additions and 1 deletions

View File

@ -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))