From 4955cfe6f248a039e95b404f26abfae04204740f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 18 Apr 2020 04:10:45 -0400
Subject: Generating module IDs in a similar way to artifact IDs.

---
 new-luxc/source/luxc/lang/translation/jvm/reference.lux | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/reference.lux b/new-luxc/source/luxc/lang/translation/jvm/reference.lux
index ff5d7a96c..4eafecec0 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/reference.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/reference.lux
@@ -34,11 +34,11 @@
   [partial-name "p"]
   )
 
-(def: (foreign variable)
-  (-> Register (Operation Inst))
+(def: (foreign archive variable)
+  (-> Archive Register (Operation Inst))
   (do phase.monad
-    [class-name (:: @ map //runtime.class-name
-                    generation.context)]
+    [class-name (:: @ map //.class-name
+                    (generation.context archive))]
     (wrap (|>> (_.ALOAD 0)
                (_.GETFIELD (type.class class-name (list))
                            (|> variable .nat foreign-name)
@@ -48,18 +48,18 @@
   (-> Register Inst)
   (|>> _.ALOAD))
 
-(def: #export (variable variable)
-  (-> Variable (Operation Inst))
+(def: #export (variable archive variable)
+  (-> Archive Variable (Operation Inst))
   (case variable
     (#reference.Local variable)
     (operation@wrap (local variable))
     
     (#reference.Foreign variable)
-    (foreign variable)))
+    (foreign archive variable)))
 
 (def: #export (constant archive name)
   (-> Archive Name (Operation Inst))
   (do phase.monad
-    [class-name (:: @ map //runtime.class-name
+    [class-name (:: @ map //.class-name
                     (generation.remember archive name))]
     (wrap (_.GETSTATIC (type.class class-name (list)) //.value-field //.$Value))))
-- 
cgit v1.2.3