suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Closing the log port if possible.

Browse Source 
svn: r94
This commit is contained in:
Jay McCarthy 2005-06-13 17:45:14 +00:00
parent 6e80e7f6b4
commit 299266d30a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/configuration.ss
View File

@ -249,6 +249,8 @@
(lambda (host-ip client-ip method uri host) (lambda (host-ip client-ip method uri host)
(semaphore-wait outsem) (semaphore-wait outsem)
(unless (and log-p (file-exists? log-path)) (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)) (set! log-p (open-output-file log-path 'append))
(file-stream-buffer-mode log-p 'line)) (file-stream-buffer-mode log-p 'line))
; do the display all at once by formating first ; do the display all at once by formating first