From 6766be5427b1788a44e07151e3fabe33ec4f8b37 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 11 Mar 2022 05:52:21 -0400
Subject: Added an easy way to export Lux functionality to host programs
 (everywhere else).

---
 lux-lua/source/program.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux
index f1a759f2d..ae6f3af2f 100644
--- a/lux-lua/source/program.lux
+++ b/lux-lua/source/program.lux
@@ -866,11 +866,11 @@
   (async.future (# world/program.default exit +0)))
 
 (def: (lux_compiler it)
-  (-> Any compiler.Custom)
+  (-> Any platform.Custom)
   (undefined))
 
 (`` (program: [service cli.service]
-      (let [extension ".lua"]
+      (let [context (context.lua (cli.target service))]
         (do io.monad
           [(~~ (for [@.old [baggage platform]
                      @.jvm [baggage platform]
@@ -878,7 +878,7 @@
            ..platform]
           (exec (do async.monad
                   [_ (/.compiler ..lux_compiler
-                                 (context.lua (cli.target service))
+                                 context
                                  (for [@.old (..expander ..to_host baggage)
                                        @.jvm (..expander ..to_host baggage)
                                        @.lua ..expander])
@@ -901,6 +901,6 @@
                                   (format (cli.target service)
                                           (# file.default separator)
                                           "program"
-                                          extension)])]
+                                          (value@ context.#artifact_extension context))])]
                   (..declare_success! []))
             (io.io []))))))
-- 
cgit v1.2.3