diff options
Diffstat (limited to 'haunt/jakob/dynamic/logging.scm')
| -rw-r--r-- | haunt/jakob/dynamic/logging.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/haunt/jakob/dynamic/logging.scm b/haunt/jakob/dynamic/logging.scm index 42b367d..24b8527 100644 --- a/haunt/jakob/dynamic/logging.scm +++ b/haunt/jakob/dynamic/logging.scm @@ -31,7 +31,7 @@ (define (log-append! level message) "Append `message', at `level', to the log buffer." (when (dominates level (%log-level)) - (call-with-output-file (%log-file-name) - (lambda (port) - (let ((now (date->string (current-date) "~4"))) - (format port "[~a] ~a: ~a~%" now level message)))))) + (let ((output-port (open-file (%log-file-name) "a")) + (now (date->string (current-date) "~4"))) + (format port "[~a] ~a: ~a~%" now level message) + (close output-port)))) |