cs: fix custodian shutdown of TCP to use shutdown

In other words, send an EOF over TCP on custodian shutdown.
2019-04-30 11:02:08 -06:00 · 2019-04-30 11:02:08 -06:00 · cf08436e05
commit cf08436e05
parent fcb75e69ff
1 changed files with 3 additions and 0 deletions
--- a/racket/src/io/port/fd-port.rkt
+++ b/racket/src/io/port/fd-port.rkt
@ -437,6 +437,9 @@
                             (lambda (fd)
                               (when flush-handle
                                 (plumber-flush-handle-remove! flush-handle))
+                               (if (input-port? port)
+                                   (send fd-input-port port on-close)
+                                   (send fd-output-port port on-close))
                               (fd-close fd fd-refcount)
                               (set-closed-state! port))
                             #f