From 1df8bc715ff6b155deac0206324a31c438dcd6b0 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Fri, 29 Sep 2023 12:11:27 -0600
Subject: [PATCH] store logFile path absolute

---
 src/kiss_flixel/Log.kiss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/kiss_flixel/Log.kiss b/src/kiss_flixel/Log.kiss
index cbe5dbd..e1c212b 100644
--- a/src/kiss_flixel/Log.kiss
+++ b/src/kiss_flixel/Log.kiss
@@ -10,14 +10,17 @@
         (sys
             (#when debug
                 (Sys.println s))
-            (let [file (sys.io.File.append "log.txt" false)]
+            (let [file (sys.io.File.append logFile false)]
                 (file.writeString "${s}\n")
                 (file.close)))
         (true
             (haxe.Log.trace s))))
 
+// Store the absolute path of the log file in case the program needs to change cwd:
+(var &mut logFile "")
 (function use []
     (set Prelude.printStr log)
+    (set logFile (joinPath (Sys.getCwd) "log.txt"))
     (let [msg "Launching version $(gitVersion) for $(Sys.systemName) on $(.toString (Date.now))"
             divider (* msg.length "-")]
         (log "${divider}\n${msg}\n${divider}")))
\ No newline at end of file