diff options
| author | Eduardo Julian | 2022-07-09 14:35:38 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-07-09 14:35:38 -0400 |
| commit | 7db42ab1b9d3c764772ca63c74bf44bb2b8b8325 (patch) | |
| tree | bd1c865dea0902790f3e462cec4f9bc8d8ae428f /lux-python/source | |
| parent | fc2737b5226eda69c12bc593e83e22ed54e4d3af (diff) | |
First-class programs instead of having a "lux program" extension.
Diffstat (limited to 'lux-python/source')
| -rw-r--r-- | lux-python/source/program.lux | 57 |
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 []))))) |