added forgotten init-line for *HTTP-SYSLOG?* in INIT-HTTP-SYSLOG!

This commit is contained in:
interp 2002-04-02 12:01:55 +00:00
parent 75970e8842
commit 3a14b095e2
1 changed files with 1 additions and 0 deletions

View File

@ -85,6 +85,7 @@
(define (init-http-syslog! syslog?)
(if syslog?
(let ((http-syslog-lock (make-lock)))
(set! *http-syslog?* #t)
(set! http-syslog
(lambda (level fmt . args)
(obtain-lock http-syslog-lock)