Closing the log promptly, rather than waiting for the custodian. (again)

svn: r58
2005-06-03 13:24:04 +00:00 · 2005-06-03 13:24:04 +00:00 · 36c76213a0
commit 36c76213a0
parent ddb5e5ce18
1 changed files with 1 additions and 1 deletions
--- 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