aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm
diff options
context:
space:
mode:
authorEduardo Julian2023-01-13 16:14:20 -0400
committerEduardo Julian2023-01-13 16:14:20 -0400
commit913171900fd11272ca328ded6553a56423db1e13 (patch)
treee101c51aa5b4467eed4e7b956d2d941cd46f4b10 /lux-jvm
parent617069b3986e9271d6e73191b899aa914e430dd6 (diff)
Can now compile complex values (i.e. variants & tuples) in C++.
Diffstat (limited to 'lux-jvm')
-rw-r--r--lux-jvm/source/program.lux35
1 files changed, 18 insertions, 17 deletions
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 [])))))