- Found a compromise with the issue of certain definitions clashing with each other when saving the class files in case-insensitive file-systems (https://github.com/LuxLang/lux/issues/8). The names of certain definitions were changed slightly to avoid clashes and the compiler throws an error if the names end up clashing prior to saving the .class file.

1 files changed, 6 insertions, 3 deletions

diff --git a/src/lux/compiler/base.clj b/src/lux/compiler/base.clj
index b6efaada8..edb1441ca 100644
--- a/src/lux/compiler/base.clj
+++ b/src/lux/compiler/base.clj
@@ -46,9 +46,12 @@
 (def tag-group-separator "\n")
 
 ;; [Utils]
-(defn ^:private write-file [^String file ^bytes data]
-  (with-open [stream (BufferedOutputStream. (FileOutputStream. file))]
-    (.write stream data)))
+(defn ^:private write-file [^String file-name ^bytes data]
+  (let [;; file-name (.toLowerCase file-name)
+        ]
+    (do (assert (not (.exists (File. file-name))) (str "Can't overwrite file: " file-name))
+      (with-open [stream (BufferedOutputStream. (FileOutputStream. file-name))]
+        (.write stream data)))))
 
 (defn ^:private write-output [module name data]
   (let [module* (&host/->module-class module)