From 4a43c41d139dfed45a8ed9b2308cf97fd6f3a59a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 14 Nov 2017 01:24:03 -0400
Subject: - Added hashing to avoid collisions in case-insensitive file-systems.

---
 new-luxc/source/luxc/lang/translation/statement.jvm.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/statement.jvm.lux')

diff --git a/new-luxc/source/luxc/lang/translation/statement.jvm.lux b/new-luxc/source/luxc/lang/translation/statement.jvm.lux
index 1cef99c76..718175df1 100644
--- a/new-luxc/source/luxc/lang/translation/statement.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/statement.jvm.lux
@@ -4,7 +4,7 @@
                 ["ex" exception #+ exception:])
        (data ["e" error]
              [maybe]
-             [text "text/" Monoid<Text>]
+             [text "text/" Monoid<Text> Hash<Text>]
              text/format
              (coll [list "list/" Functor<List> Fold<List>]))
        [meta]
@@ -37,7 +37,7 @@
   (do meta;Monad<Meta>
     [current-module meta;current-module-name
      #let [def-ident [current-module def-name]
-           normal-name (&;normalize-name def-name)
+           normal-name (format (&;normalize-name def-name) (%n (text/hash def-name)))
            bytecode-name (format current-module "/" normal-name)
            class-name (format current-module "." normal-name)
            bytecode ($d;class #$;V1.6
@@ -57,17 +57,17 @@
                        [field (Class.getField [commonT;value-field] class)]
                        (Field.get [#;None] field))
                  (#e;Success #;None)
-                 (&;throw Invalid-Definition-Value (%ident [current-module def-name]))
+                 (&;throw Invalid-Definition-Value (%ident def-ident))
                  
                  (#e;Success (#;Some valueV))
                  (wrap valueV)
                  
                  (#e;Error error)
                  (&;throw Cannot-Evaluate-Definition
-                          (format "Definition: " (%ident [current-module def-name]) "\n"
+                          (format "Definition: " (%ident def-ident) "\n"
                                   "Error:\n"
                                   error))))
-     _ (&module;define [current-module def-name] [valueT metaV valueV])
+     _ (&module;define def-ident [valueT metaV valueV])
      _ (if (meta;type? metaV)
          (case (meta;declared-tags metaV)
            #;Nil
@@ -76,8 +76,8 @@
            tags
            (&module;declare-tags tags (meta;export? metaV) (:! Type valueV)))
          (wrap []))
-     #let [_ (log! (format "DEF " (%ident [current-module def-name])))]]
-    (commonT;record-artifact bytecode-name bytecode)))
+     #let [_ (log! (format "DEF " (%ident def-ident)))]]
+    (commonT;record-artifact (format bytecode-name ".class") bytecode)))
 
 (def: #export (translate-program program-args programI)
   (-> Text $;Inst (Meta Unit))
-- 
cgit v1.2.3