From d3deccdbd680e87723185f404e79dd10c2afceb6 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 7 Jul 2019 20:42:52 -0400
Subject: Ported JVM structure generation to the new JVM bytecode machinery.

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

(limited to 'new-luxc/source/luxc')

diff --git a/new-luxc/source/luxc/lang/translation/jvm/structure.lux b/new-luxc/source/luxc/lang/translation/jvm/structure.lux
index 5cfe233fe..fe5d6bd6d 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/structure.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/structure.lux
@@ -29,7 +29,7 @@
 
 (def: $Object ($t.class "java.lang.Object" (list)))
 
-(def: #export (tuple translate members)
+(def: #export (tuple generate members)
   (-> Phase (List Synthesis) (Operation Inst))
   (do phase.monad
     [#let [size (list.size members)]
@@ -39,7 +39,7 @@
                   list.enumerate
                   (monad.map @ (function (_ [idx member])
                                  (do @
-                                   [memberI (translate member)]
+                                   [memberI (generate member)]
                                    (wrap (|>> _.DUP
                                               (_.int (.int idx))
                                               memberI
@@ -55,10 +55,10 @@
     (_.string "")
     _.NULL))
 
-(def: #export (variant translate lefts right? member)
+(def: #export (variant generate lefts right? member)
   (-> Phase Nat Bit Synthesis (Operation Inst))
   (do phase.monad
-    [memberI (translate member)]
+    [memberI (generate member)]
     (wrap (|>> (_.int (.int (if right?
                               (.inc lefts)
                               lefts)))
-- 
cgit v1.2.3