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-ruby/source/program.lux | 41 ++++++++++++++++++++---------------------
 1 file changed, 20 insertions(+), 21 deletions(-)

(limited to 'lux-ruby')

diff --git a/lux-ruby/source/program.lux b/lux-ruby/source/program.lux
index 123fa1285..bd3f1763e 100644
--- a/lux-ruby/source/program.lux
+++ b/lux-ruby/source/program.lux
@@ -972,27 +972,26 @@
   (async.future (# world/program.default exit +0)))
 
 (def: (lux_compiler it)
-  (-> Any compiler.Custom)
+  (-> Any platform.Custom)
   (undefined))
 
 (program: [service cli.service]
-  (let [extension ".rb"]
-    (exec
-      (do async.monad
-        [_ (/.compiler ..lux_compiler
-                       (context.ruby (cli.target service))
-                       ..expander
-                       analysis.bundle
-                       ..platform
-                       generation.bundle
-                       (function.constant extension/bundle.empty)
-                       ..program
-                       [Register _.Expression _.Statement]
-                       ..extender
-                       service
-                       [packager.package
-                        (format (cli.target service)
-                                (# file.default separator)
-                                "program")])]
-        (..declare_success! []))
-      (io.io []))))
+  (exec
+    (do async.monad
+      [_ (/.compiler ..lux_compiler
+                     (context.ruby (cli.target service))
+                     ..expander
+                     analysis.bundle
+                     ..platform
+                     generation.bundle
+                     (function.constant extension/bundle.empty)
+                     ..program
+                     [Register _.Expression _.Statement]
+                     ..extender
+                     service
+                     [packager.package
+                      (format (cli.target service)
+                              (# file.default separator)
+                              "program")])]
+      (..declare_success! []))
+    (io.io [])))
-- 
cgit v1.2.3