Fix echo-server test.
This commit is contained in:
parent
de406f1151
commit
daef7b3ea4
|
@ -12,7 +12,7 @@
|
||||||
(let loop ()
|
(let loop ()
|
||||||
(receive (data type) (receive-message)
|
(receive (data type) (receive-message)
|
||||||
(unless (eq? type 'connection-close)
|
(unless (eq? type 'connection-close)
|
||||||
(send-message type data)
|
(send-message data type)
|
||||||
(loop))))))))
|
(loop))))))))
|
||||||
|
|
||||||
(debug-log (current-output-port))
|
(debug-log (current-output-port))
|
||||||
|
|
Loading…
Reference in New Issue