From b14102eaa2a80f51f160ba293ec01928dbe683c3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 22 Jul 2018 02:52:46 -0400
Subject: - Some fixes due to recent changes in stdlib. - Removed some (now)
 useless modules.

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

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux
index 3ed9a8ebc..5abf85c05 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux
@@ -40,12 +40,12 @@
   (-> Text Type $.Inst Code (Meta Any))
   (do macro.Monad<Meta>
     [current-module macro.current-module-name
-     #let [def-ident [current-module def-name]]]
-    (case (macro.get-identifier-ann (ident-for #.alias) metaV)
+     #let [def-name [current-module def-name]]]
+    (case (macro.get-identifier-ann (name-of #.alias) metaV)
       (#.Some real-def)
       (do @
         [[realT realA realV] (macro.find-def real-def)
-         _ (&module.define def-ident [realT metaV realV])]
+         _ (&module.define def-name [realT metaV realV])]
         (wrap []))
 
       _
@@ -70,17 +70,17 @@
                            [field (Class::getField [commonT.value-field] class)]
                            (Field::get [#.None] field))
                      (#e.Success #.None)
-                     (&.throw Invalid-Definition-Value (%ident def-ident))
+                     (&.throw Invalid-Definition-Value (%name def-name))
                      
                      (#e.Success (#.Some valueV))
                      (wrap valueV)
                      
                      (#e.Error error)
                      (&.throw Cannot-Evaluate-Definition
-                              (format "Definition: " (%ident def-ident) "\n"
+                              (format "Definition: " (%name def-name) "\n"
                                       "Error:\n"
                                       error))))
-         _ (&module.define def-ident [valueT metaV valueV])
+         _ (&module.define def-name [valueT metaV valueV])
          _ (if (macro.type? metaV)
              (case (macro.declared-tags metaV)
                #.Nil
@@ -89,7 +89,7 @@
                tags
                (&module.declare-tags tags (macro.export? metaV) (:coerce Type valueV)))
              (wrap []))
-         #let [_ (log! (format "DEF " (%ident def-ident)))]]
+         #let [_ (log! (format "DEF " (%name def-name)))]]
         (commonT.record-artifact (format bytecode-name ".class") bytecode)))))
 
 (def: #export (translate-program programI)
-- 
cgit v1.2.3