aboutsummaryrefslogtreecommitdiff
path: root/lux-cl/source
diff options
context:
space:
mode:
Diffstat (limited to 'lux-cl/source')
-rw-r--r--lux-cl/source/program.lux59
1 files changed, 30 insertions, 29 deletions
diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index c5d76c436..2121d401a 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -1,6 +1,6 @@
(.require
[lux (.except)
- [program (.only program:)]
+ [program (.only program)]
["[0]" ffi]
["[0]" debug]
[abstract
@@ -412,31 +412,32 @@
(_.call/* @program (list))
)))
-(`` (program: [service /cli.service]
- (let [extension ".cl"]
- (do io.monad
- [platform ..platform]
- (exec (do promise.monad
- [_ (/.compiler [/static.#host @.common_lisp
- /static.#host_module_extension extension
- /static.#target (/cli.target service)
- /static.#artifact_extension extension]
- ..expander
- analysis.bundle
- (io.io platform)
- generation.bundle
- extension/bundle.empty
- ..program
- [(And _.Tag Register) (type_literal (_.Expression Any)) (type_literal (_.Expression Any))]
- ..extender
- service
- [(packager.package (_.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 ".cl"]
+ (do io.monad
+ [platform ..platform]
+ (exec (do promise.monad
+ [_ (/.compiler [/static.#host @.common_lisp
+ /static.#host_module_extension extension
+ /static.#target (/cli.target service)
+ /static.#artifact_extension extension]
+ ..expander
+ analysis.bundle
+ (io.io platform)
+ generation.bundle
+ extension/bundle.empty
+ ..program
+ [(And _.Tag Register) (type_literal (_.Expression Any)) (type_literal (_.Expression Any))]
+ ..extender
+ service
+ [(packager.package (_.manual "")
+ _.code
+ ..then
+ ..scope)
+ (format (/cli.target service)
+ (at file.default separator)
+ "program"
+ extension)])]
+ (..declare_success! []))
+ (io.io [])))))))