From 36c76213a06aecb579e0ab2f314bf9cfa69ac9e4 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Fri, 3 Jun 2005 13:24:04 +0000
Subject: [PATCH] Closing the log promptly, rather than waiting for the
 custodian. (again)

svn: r58
---
 collects/web-server/configuration.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/web-server/configuration.ss b/collects/web-server/configuration.ss
index ce97fb364a..74d09bd7a9 100644
--- a/collects/web-server/configuration.ss
+++ b/collects/web-server/configuration.ss
@@ -254,7 +254,7 @@
                    (list 'from client-ip 'to host-ip 'for (url->string uri) 'at
                          (date->string (seconds->date (current-seconds)) #t)))
            log-p)
-          (close-output-file log-p))
+          (close-output-port log-p))
         (semaphore-post outsem))))
 
   ; ignore-log : sym str -> str str sym url str -> str