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/primitive.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/primitive.lux b/lux-jvm/source/luxc/lang/translation/jvm/primitive.lux
index 1bced2ffc..2c814d24f 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/primitive.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/primitive.lux
@@ -21,7 +21,7 @@
   (-> Bit (Operation Inst))
   (let [Boolean (type.class "java.lang.Boolean" (list))]
     (function (_ value)
-      (operation@wrap (_.GETSTATIC Boolean (if value "TRUE" "FALSE") Boolean)))))
+      (operation@in (_.GETSTATIC Boolean (if value "TRUE" "FALSE") Boolean)))))
 
 (import: java/lang/Byte
   ["#::."
@@ -38,13 +38,13 @@
   (case (.int value)
     (^template [<int> <instruction>]
       [<int>
-       (operation@wrap (|>> <instruction> (_.wrap type.long)))])
+       (operation@in (|>> <instruction> (_.wrap type.long)))])
     ([+0 _.LCONST_0]
      [+1 _.LCONST_1])
 
     (^template [<int> <instruction>]
       [<int>
-       (operation@wrap (|>> <instruction> _.I2L (_.wrap type.long)))])
+       (operation@in (|>> <instruction> _.I2L (_.wrap type.long)))])
     ([-1 _.ICONST_M1]
      ## [+0 _.ICONST_0]
      ## [+1 _.ICONST_1]
@@ -64,7 +64,7 @@
 
                           ## else
                           (|> value .int _.long))]
-      (operation@wrap (|>> constantI (_.wrap type.long))))))
+      (operation@in (|>> constantI (_.wrap type.long))))))
 
 (import: java/lang/Double
   ["#::."
@@ -79,17 +79,17 @@
   (case value
     (^template [<int> <instruction>]
       [<int>
-       (operation@wrap (|>> <instruction> (_.wrap type.double)))])
+       (operation@in (|>> <instruction> (_.wrap type.double)))])
     ([+1.0 _.DCONST_1])
 
     (^template [<int> <instruction>]
       [<int>
-       (operation@wrap (|>> <instruction> _.F2D (_.wrap type.double)))])
+       (operation@in (|>> <instruction> _.F2D (_.wrap type.double)))])
     ([+2.0 _.FCONST_2])
 
     (^template [<int> <instruction>]
       [<int>
-       (operation@wrap (|>> <instruction> _.I2D (_.wrap type.double)))])
+       (operation@in (|>> <instruction> _.I2D (_.wrap type.double)))])
     ([-1.0 _.ICONST_M1]
      ## [+0.0 _.ICONST_0]
      ## [+1.0 _.ICONST_1]
@@ -105,8 +105,8 @@
                             (i.= ..d0-bits))
                       _.DCONST_0
                       (_.double value))]
-      (operation@wrap (|>> constantI (_.wrap type.double))))))
+      (operation@in (|>> constantI (_.wrap type.double))))))
 
 (def: #export text
   (-> Text (Operation Inst))
-  (|>> _.string operation@wrap))
+  (|>> _.string operation@in))
-- 
cgit v1.2.3