diff options
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/jvm/structure.lux')
-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))) |