From f7cd4784dec0ecc439729ffc2740ffa9583af310 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Fri, 12 Sep 2008 22:43:58 +0000 Subject: [PATCH] Need the #:exists keyword here. svn: r11704 --- collects/handin-server/private/logger.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/handin-server/private/logger.ss b/collects/handin-server/private/logger.ss index 2246c88fb2..34006d3f76 100644 --- a/collects/handin-server/private/logger.ss +++ b/collects/handin-server/private/logger.ss @@ -74,5 +74,5 @@ (current-error-port (make-logger-port (and (get-conf 'log-output) (current-output-port)) - (cond [(get-conf 'log-file) => (lambda (f) (open-output-file f 'append))] + (cond [(get-conf 'log-file) => (lambda (f) (open-output-file f #:exists 'append))] [else #f]))))