From 299266d30a5ce7e2979b4db3e9657426918d2273 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Mon, 13 Jun 2005 17:45:14 +0000
Subject: [PATCH] Closing the log port if possible.

svn: r94
---
 collects/web-server/configuration.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/web-server/configuration.ss b/collects/web-server/configuration.ss
index ad222c0f2e..55221e1a9e 100644
--- a/collects/web-server/configuration.ss
+++ b/collects/web-server/configuration.ss
@@ -249,6 +249,8 @@
       (lambda (host-ip client-ip method uri host)
         (semaphore-wait outsem)
         (unless (and log-p (file-exists? log-path))
+          (when log-p
+            (close-output-port log-p))
           (set! log-p (open-output-file log-path 'append))
           (file-stream-buffer-mode log-p 'line))
         ; do the display all at once by formating first