Fix echo-server test.
This commit is contained in:
parent
de406f1151
commit
daef7b3ea4
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue