diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-05 22:20:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-07 13:10:38 +0200 |
| commit | 0d294b8bf33d9b522e3b0afe82742acd503e712c (patch) | |
| tree | e01adf3535a56ace6ff82562424a342cabde8a48 | |
| parent | Remove some TODO:s. (diff) | |
| download | calp-0d294b8bf33d9b522e3b0afe82742acd503e712c.tar.gz calp-0d294b8bf33d9b522e3b0afe82742acd503e712c.tar.xz | |
Fix check for empty log file.
| -rw-r--r-- | module/main.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/main.scm b/module/main.scm index 9fe9d8c6..24561f72 100644 --- a/module/main.scm +++ b/module/main.scm @@ -190,7 +190,7 @@ (define (main args) - (when (zero? (ftell (logport))) + (when (zero? (stat:size (stat (logport)))) (format (logport) "<?xml version=\"1.0\" encoding=\"UTF-8\"?>~%")) (format (logport) "<run><start>~a</start>~%" |