Closing the log port if possible.

svn: r94
2005-06-13 17:45:14 +00:00 · 2005-06-13 17:45:14 +00:00 · 299266d30a
commit 299266d30a
parent 6e80e7f6b4
1 changed files with 2 additions and 0 deletions
--- 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