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