aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation')
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/structure.lux8
1 files changed, 4 insertions, 4 deletions
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)))