From 7db42ab1b9d3c764772ca63c74bf44bb2b8b8325 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 9 Jul 2022 14:35:38 -0400
Subject: First-class programs instead of having a "lux program" extension.

---
 lux-ruby/source/program.lux | 43 ++++++++++++++++++++++---------------------
 1 file changed, 22 insertions(+), 21 deletions(-)

(limited to 'lux-ruby/source')

diff --git a/lux-ruby/source/program.lux b/lux-ruby/source/program.lux
index 35aada877..df8ed9b66 100644
--- a/lux-ruby/source/program.lux
+++ b/lux-ruby/source/program.lux
@@ -1,7 +1,7 @@
 (.require
  [library
   [lux (.except)
-   [program (.only program:)]
+   [program (.only program)]
    ["[0]" debug]
    ["[0]" ffi (.only import)]
    [abstract
@@ -987,23 +987,24 @@
   (-> Any platform.Custom)
   (undefined))
 
-(program: [service cli.service]
-  (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)
-                              (at file.default separator)
-                              "program")])]
-      (..declare_success! []))
-    (io.io [])))
+(def _
+  (program [service cli.service]
+    (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)
+                                (at file.default separator)
+                                "program")])]
+        (..declare_success! []))
+      (io.io []))))
-- 
cgit v1.2.3