From 30801bcf8fbb1be7ae8f193edfa71e6c4909a4c3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Mar 2020 21:38:34 -0400
Subject: No passing the archive as a parameter to all phases.

---
 .../luxc/lang/translation/jvm/expression.lux       | 34 +++++++++++-----------
 1 file changed, 17 insertions(+), 17 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/jvm/expression.lux')

diff --git a/new-luxc/source/luxc/lang/translation/jvm/expression.lux b/new-luxc/source/luxc/lang/translation/jvm/expression.lux
index ad2da41b6..800f79a41 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/expression.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/expression.lux
@@ -20,7 +20,7 @@
    ["." loop]
    ["." function]])
 
-(def: #export (translate synthesis)
+(def: #export (translate archive synthesis)
   Phase
   (case synthesis
     (^ (synthesis.bit value))
@@ -35,11 +35,11 @@
     (^ (synthesis.text value))
     (primitive.text value)
 
-    (^ (synthesis.variant [lefts right? value]))
-    (structure.variant translate lefts right? value)
+    (^ (synthesis.variant data))
+    (structure.variant translate archive data)
 
     (^ (synthesis.tuple members))
-    (structure.tuple translate members)
+    (structure.tuple translate archive members)
 
     (^ (synthesis.variable variable))
     (reference.variable variable)
@@ -47,26 +47,26 @@
     (^ (synthesis.constant constant))
     (reference.constant constant)
 
-    (^ (synthesis.branch/let [input register expr]))
-    (case.let translate input register expr)
+    (^ (synthesis.branch/let data))
+    (case.let translate archive data)
 
-    (^ (synthesis.branch/if [test then else]))
-    (case.if translate test then else)
+    (^ (synthesis.branch/if data))
+    (case.if translate archive data)
 
-    (^ (synthesis.branch/case [input path]))
-    (case.case translate input path)
+    (^ (synthesis.branch/case data))
+    (case.case translate archive data)
 
     (^ (synthesis.loop/recur data))
-    (loop.recur translate data)
+    (loop.recur translate archive data)
 
     (^ (synthesis.loop/scope data))
-    (loop.scope translate data)
+    (loop.scope translate archive data)
 
-    (^ (synthesis.function/apply apply))
-    (function.call translate apply)
+    (^ (synthesis.function/apply data))
+    (function.call translate archive data)
 
-    (^ (synthesis.function/abstraction abstraction))
-    (function.function translate abstraction)
+    (^ (synthesis.function/abstraction data))
+    (function.function translate archive data)
 
     (#synthesis.Extension extension)
-    (extension.apply translate extension)))
+    (extension.apply archive translate extension)))
-- 
cgit v1.2.3