diff options
| author | Eduardo Julian | 2019-07-07 20:42:52 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-07-07 20:42:52 -0400 |
| commit | d3deccdbd680e87723185f404e79dd10c2afceb6 (patch) | |
| tree | 156c71800e58947dff7d15fd1164ebaa71dda436 /new-luxc/source/luxc | |
| parent | 824f80cce07a64ad8b5edecd06515819f28e1ef6 (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.lux | 8 |
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))) |