aboutsummaryrefslogtreecommitdiff
path: root/lux-cl
diff options
context:
space:
mode:
Diffstat (limited to 'lux-cl')
-rw-r--r--lux-cl/source/program.lux23
1 files changed, 11 insertions, 12 deletions
diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index 89b2b937c..1a3b767a4 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -334,7 +334,7 @@
)))))
(def: platform
- (IO (Platform _.Var/1 (_.Expression Any) (_.Expression Any)))
+ (IO (Platform [_.Tag Register] (_.Expression Any) (_.Expression Any)))
(do io.monad
[host ..host]
(wrap {#platform.&file_system (file.async file.default)
@@ -353,16 +353,15 @@
(def: (program context program)
(Program (_.Expression Any) (_.Expression Any))
- (let [raw_inputs ($_ _.progn
- (_.conditional+ (list "clisp") (_.var "ext:*args*"))
- (_.conditional+ (list "sbcl") (_.var "sb-ext:*posix-argv*"))
- (_.conditional+ (list "clozure") (_.call/* (_.var "ccl::command-line-arguments") (list)))
- (_.conditional+ (list "gcl") (_.var "si:*command-args*"))
- (_.conditional+ (list "ecl") ..get_ecl_cli_inputs)
- (_.conditional+ (list "cmu") (_.var "extensions:*command-line-strings*"))
- (_.conditional+ (list "allegro") (_.call/* (_.var "sys:command-line-arguments") (list)))
- (_.conditional+ (list "lispworks") (_.var "sys:*line-arguments-list*"))
- (_.list/* (list)))]
+ (let [raw_inputs (_.progn (list (_.conditional+ (list "clisp") (_.var "ext:*args*"))
+ (_.conditional+ (list "sbcl") (_.var "sb-ext:*posix-argv*"))
+ (_.conditional+ (list "clozure") (_.call/* (_.var "ccl::command-line-arguments") (list)))
+ (_.conditional+ (list "gcl") (_.var "si:*command-args*"))
+ (_.conditional+ (list "ecl") ..get_ecl_cli_inputs)
+ (_.conditional+ (list "cmu") (_.var "extensions:*command-line-strings*"))
+ (_.conditional+ (list "allegro") (_.call/* (_.var "sys:command-line-arguments") (list)))
+ (_.conditional+ (list "lispworks") (_.var "sys:*line-arguments-list*"))
+ (_.list/* (list))))]
(_.call/2 [(runtime.lux//program_args raw_inputs) _.nil] program)))
(for {@.old
@@ -422,7 +421,7 @@
generation.bundle
extension/bundle.empty
..program
- [_.Var _.Expression _.Expression]
+ [(& _.Tag Register) (type (_.Expression Any)) (type (_.Expression Any))]
..extender
service
[(packager.package (_.manual "")