Explicitly flushing output in run-net-server.

This commit is contained in:
Alex Shinn 2014-02-12 08:29:16 +09:00
parent 90dbe1fdd2
commit 4596856d77

View file

@ -48,6 +48,7 @@
(close-output-port (cdr ports))
(close-file-descriptor sock)))
(handler (car ports) (cdr ports) sock addr)
(flush-output (cdr ports))
(close-input-port (car ports))
(close-output-port (cdr ports))
(close-file-descriptor sock)))