diff options
Diffstat (limited to 'lux-cl')
| -rw-r--r-- | lux-cl/source/program.lux | 23 |
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 "") |