aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc
diff options
context:
space:
mode:
authorEduardo Julian2019-07-07 20:42:52 -0400
committerEduardo Julian2019-07-07 20:42:52 -0400
commitd3deccdbd680e87723185f404e79dd10c2afceb6 (patch)
tree156c71800e58947dff7d15fd1164ebaa71dda436 /new-luxc/source/luxc
parent824f80cce07a64ad8b5edecd06515819f28e1ef6 (diff)
Ported JVM structure generation to the new JVM bytecode machinery.
Diffstat (limited to '')
-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)))