aboutsummaryrefslogtreecommitdiff
path: root/lux-python
diff options
context:
space:
mode:
authorEduardo Julian2022-07-09 14:35:38 -0400
committerEduardo Julian2022-07-09 14:35:38 -0400
commit7db42ab1b9d3c764772ca63c74bf44bb2b8b8325 (patch)
treebd1c865dea0902790f3e462cec4f9bc8d8ae428f /lux-python
parentfc2737b5226eda69c12bc593e83e22ed54e4d3af (diff)
First-class programs instead of having a "lux program" extension.
Diffstat (limited to 'lux-python')
-rw-r--r--lux-python/source/program.lux57
1 files changed, 29 insertions, 28 deletions
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 [])))))