From 0d294b8bf33d9b522e3b0afe82742acd503e712c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 5 Jul 2020 22:20:46 +0200
Subject: Fix check for empty log file.

---
 module/main.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'module')

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>~%"
-- 
cgit v1.2.3