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

doug orleans error

Browse Source 
svn: r8360
This commit is contained in:
Jay McCarthy 2008-01-18 02:45:33 +00:00
parent 2be06881d0
commit ae50ffd044
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/dispatchers/dispatch-log.ss
View File

@ -88,7 +88,7 @@
(begin (begin
(unless (eq? log-p #f) (unless (eq? log-p #f)
(close-output-port log-p)) (close-output-port log-p))
(let ([new-log-p (open-output-file log-path 'append)]) (let ([new-log-p (open-output-file log-path #:exists 'append)])
(file-stream-buffer-mode new-log-p 'line) (file-stream-buffer-mode new-log-p 'line)
new-log-p)) new-log-p))
log-p)) log-p))