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-python/source/program.lux | 57 ++++++++++++++++++++++---------------------
 1 file changed, 29 insertions(+), 28 deletions(-)

(limited to 'lux-python/source')

diff --git a/lux-python/source/program.lux b/lux-python/source/program.lux
index a14949e61..cf4398f89 100644
--- a/lux-python/source/program.lux
+++ b/lux-python/source/program.lux
@@ -1,7 +1,7 @@
 (.require
  [library
   [lux (.except)
-   [program (.only program:)]
+   [program (.only program)]
    ["[0]" ffi (.only import)]
    ["[0]" debug]
    [abstract
@@ -576,30 +576,31 @@
   (-> Any platform.Custom)
   (undefined))
 
-(program: [service cli.service]
-  (let [extension ".py"]
-    (exec
-      (do async.monad
-        [_ (/.compiler ..lux_compiler
-                       (context.python (cli.target service))
-                       ..expander
-                       analysis.bundle
-                       ..platform
-                       generation.bundle
-                       (function.constant extension/bundle.empty)
-                       ..program
-                       [Register
-                        (type_literal (_.Expression Any))
-                        (type_literal (_.Statement Any))]
-                       ..extender
-                       service
-                       [(packager.package (is (_.Statement Any) (_.manual ""))
-                                          _.code
-                                          _.then
-                                          ..scope)
-                        (format (cli.target service)
-                                (at file.default separator)
-                                "program"
-                                extension)])]
-        (..declare_success! []))
-      (io.io []))))
+(def _
+  (program [service cli.service]
+    (let [extension ".py"]
+      (exec
+        (do async.monad
+          [_ (/.compiler ..lux_compiler
+                         (context.python (cli.target service))
+                         ..expander
+                         analysis.bundle
+                         ..platform
+                         generation.bundle
+                         (function.constant extension/bundle.empty)
+                         ..program
+                         [Register
+                          (type_literal (_.Expression Any))
+                          (type_literal (_.Statement Any))]
+                         ..extender
+                         service
+                         [(packager.package (is (_.Statement Any) (_.manual ""))
+                                            _.code
+                                            _.then
+                                            ..scope)
+                          (format (cli.target service)
+                                  (at file.default separator)
+                                  "program"
+                                  extension)])]
+          (..declare_success! []))
+        (io.io [])))))
-- 
cgit v1.2.3