diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2022-12-05 15:26:11 -0500 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2022-12-05 15:26:11 -0500 |
| commit | d3f95102ab43c7f4791dbf1ce694da773a03c254 (patch) | |
| tree | 938db2b1a441f23cb17c359081dbc05a9658cfa8 | |
| parent | 37ec784fe5df27fc7a785a51f4e137516c0e9106 (diff) | |
call-with-output-file doesn't know how to append
| -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)))) |