From 913171900fd11272ca328ded6553a56423db1e13 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 13 Jan 2023 16:14:20 -0400
Subject: Can now compile complex values (i.e. variants & tuples) in C++.

---
 lux-jvm/source/program.lux | 35 ++++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 17 deletions(-)

(limited to 'lux-jvm/source/program.lux')

diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux
index a597ce394..f13547232 100644
--- a/lux-jvm/source/program.lux
+++ b/lux-jvm/source/program.lux
@@ -120,7 +120,7 @@
           platform.#host host
 
           platform.#phase /.translate
-          platform.#runtime /runtime.translate
+          platform.#runtime /runtime.translation
 
           platform.#phase_wrapper ..phase_wrapper
           platform.#write product.right]])))
@@ -160,20 +160,21 @@
 (def _
   (program [service cli.service]
     (let [context (context.jvm (cli.target service))]
-      (exec (do async.monad
-              [[loader host platform] (async.future ..platform)
-               _ (compositor.compiler (|>> (as platform.Custom))
-                                      context
-                                      ..expander
-                                      (analysis.bundle loader host)
-                                      (io.io platform)
-                                      translation.bundle
-                                      (declaration.bundle loader ..extender)
-                                      (/program.program /runtime.class_name)
-                                      /reference.constant
-                                      ..extender
-                                      service
-                                      [(packager.package context)
-                                       "program.jar"])]
-              (..declare_success! []))
+      (exec
+        (do async.monad
+          [[loader host platform] (async.future ..platform)
+           _ (compositor.compiler (|>> (as platform.Custom))
+                                  context
+                                  ..expander
+                                  (analysis.bundle loader host)
+                                  (io.io platform)
+                                  translation.bundle
+                                  (declaration.bundle loader ..extender)
+                                  (/program.program /runtime.class_name)
+                                  /reference.constant
+                                  ..extender
+                                  service
+                                  [(packager.package context)
+                                   "program.jar"])]
+          (..declare_success! []))
         (io.io [])))))
-- 
cgit v1.2.3