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') 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