mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-07 13:16:36 +02:00
Explicitly flushing output in run-net-server.
This commit is contained in:
parent
90dbe1fdd2
commit
4596856d77
1 changed files with 1 additions and 0 deletions
|
@ -48,6 +48,7 @@
|
||||||
(close-output-port (cdr ports))
|
(close-output-port (cdr ports))
|
||||||
(close-file-descriptor sock)))
|
(close-file-descriptor sock)))
|
||||||
(handler (car ports) (cdr ports) sock addr)
|
(handler (car ports) (cdr ports) sock addr)
|
||||||
|
(flush-output (cdr ports))
|
||||||
(close-input-port (car ports))
|
(close-input-port (car ports))
|
||||||
(close-output-port (cdr ports))
|
(close-output-port (cdr ports))
|
||||||
(close-file-descriptor sock)))
|
(close-file-descriptor sock)))
|
||||||
|
|
Loading…
Add table
Reference in a new issue