From 5e1193c60a85a25bc7d5c1cb55b7ffc02b74e72a Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Thu, 21 Feb 2002 15:09:26 +0000
Subject: [PATCH] Properly set up logging port.

---
 httpd-core.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/httpd-core.scm b/httpd-core.scm
index d71f5b7..ee459e5 100644
--- a/httpd-core.scm
+++ b/httpd-core.scm
@@ -49,8 +49,13 @@
   (set! server/admin s))
 
 
+
 (define *http-log?* #t)
-(define *http-log-port* (current-error-port))
+(define *http-log-port* #f)
+
+(define (init-http-log!)
+  (set! *http-log-port* (current-error-port)))
+
 (define (http-log fmt . args)
   (if *http-log?*
       (begin 
@@ -69,6 +74,7 @@
 (define (httpd path-handler . args)
   (let-optionals args ((port 80)
 		       (root-dir "/usr/local/etc/httpd"))
+    (init-http-log!)
     (with-cwd root-dir
       (bind-listen-accept-loop protocol-family/internet