|author||Jim Ursetto <firstname.lastname@example.org>||2019-01-17 12:16:11 -0600|
|committer||Peter Bex <email@example.com>||2019-01-17 22:20:45 +0100|
Use port-closed? instead of ##sys#slot, fixing output hangs
Port slot 8 (closed?) changed from a bool to a fixnum in Chicken 5, which made the existing port closed test always succeed, so output was never flushed. This can lead to hangs when output size is less than tcp-buffer-size. Use the official accessor instead. Signed-off-by: Peter Bex <firstname.lastname@example.org>
1 files changed, 1 insertions, 1 deletions
@@ -531,7 +531,7 @@
(conc "<p>Your client sent a request that "
"the server did not understand</p>")))
- (unless (##sys#slot out 8) ;; port-closed?
+ (unless (port-closed? out)
(handle-another-request?)))))))) ; Keep going?