summaryrefslogtreecommitdiff
path: root/spiffy.scm
diff options
context:
space:
mode:
Diffstat (limited to 'spiffy.scm')
-rw-r--r--spiffy.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/spiffy.scm b/spiffy.scm
index 83f51cf..83fe21b 100644
--- a/spiffy.scm
+++ b/spiffy.scm
@@ -531,7 +531,7 @@
(send-status 'bad-request
(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)
(flush-output out))
(handle-another-request?)))))))) ; Keep going?