From eff4c59794868b89d60fdc411f9b544a270b817e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 2 Aug 2021 20:26:21 -0400
Subject: Fixed a bug in the new compiler which allowed the same module to be
 imported more than once.

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

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

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/reference.lux b/lux-jvm/source/luxc/lang/translation/jvm/reference.lux
index bfbda85be..b2dfe7676 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/reference.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/reference.lux
@@ -41,10 +41,10 @@
   (do {@ phase.monad}
     [class_name (\ @ map //.class_name
                    (generation.context archive))]
-    (wrap (|>> (_.ALOAD 0)
-               (_.GETFIELD (type.class class_name (list))
-                           (|> variable .nat foreign_name)
-                           //.$Value)))))
+    (in (|>> (_.ALOAD 0)
+             (_.GETFIELD (type.class class_name (list))
+                         (|> variable .nat foreign_name)
+                         //.$Value)))))
 
 (def: local
   (-> Register Inst)
@@ -54,7 +54,7 @@
   (-> Archive Variable (Operation Inst))
   (case variable
     (#variable.Local variable)
-    (operation@wrap (local variable))
+    (operation@in (local variable))
     
     (#variable.Foreign variable)
     (foreign archive variable)))
@@ -64,4 +64,4 @@
   (do {@ phase.monad}
     [class_name (\ @ map //.class_name
                    (generation.remember archive name))]
-    (wrap (_.GETSTATIC (type.class class_name (list)) //.value_field //.$Value))))
+    (in (_.GETSTATIC (type.class class_name (list)) //.value_field //.$Value))))
-- 
cgit v1.2.3