diff options
Diffstat (limited to 'stdlib/source/library/lux/world/program.lux')
-rw-r--r-- | stdlib/source/library/lux/world/program.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/library/lux/world/program.lux b/stdlib/source/library/lux/world/program.lux index 3203a12b1..feb95fff9 100644 --- a/stdlib/source/library/lux/world/program.lux +++ b/stdlib/source/library/lux/world/program.lux @@ -141,7 +141,7 @@ (jvm\\consume iterator)) #.End)) )] - (for {@.old (as_is <jvm>) + (for [@.old (as_is <jvm>) @.jvm (as_is <jvm>) @.js (as_is (def: default_exit! (-> Exit (IO Nothing)) @@ -299,7 +299,7 @@ ... (ffi.import: (cdr [Pair] Text)) ... (ffi.import: (car "as" head [PList] Pair)) ... (ffi.import: (cdr "as" tail [PList] PList))) - } + ] (as_is))) (implementation: .public default @@ -310,7 +310,7 @@ java/util/Map::keySet java/util/Set::iterator ..jvm\\consume))] - (for {@.old <jvm> + (for [@.old <jvm> @.jvm <jvm> @.js (io.io (if ffi.on_node_js? (case (ffi.constant Object [process env]) @@ -345,7 +345,7 @@ ... (let [entry (..head input)] ... (recur (..tail input) ... (dictionary.has (..car entry) (..cdr entry) output)))))) - }))) + ]))) (def: (variable name) (template.let [(!fetch <method>) @@ -358,7 +358,7 @@ #.None (exception.except ..unknown_environment_variable [name]))))]] (with_expansions [<jvm> (!fetch java/lang/System::resolveEnv)] - (for {@.old <jvm> + (for [@.old <jvm> @.jvm <jvm> @.js (io.io (if ffi.on_node_js? (case (do maybe.monad @@ -374,13 +374,13 @@ @.python (!fetch os/environ::get) @.lua (!fetch os/getenv) @.ruby (!fetch RubyEnv::fetch) - })))) + ])))) (def: home (io.run! (with_expansions [<default> (io.io "~") <jvm> (io.io (maybe.else "" (java/lang/System::getProperty "user.home")))] - (for {@.old <jvm> + (for [@.old <jvm> @.jvm <jvm> @.js (if ffi.on_node_js? (|> (..require [] "os") @@ -395,7 +395,7 @@ ... (in (if (bit\= false (:as Bit output)) ... "~" ... output))) - } + ] ... TODO: Replace dummy implementation. <default>)))) @@ -403,7 +403,7 @@ (io.run! (with_expansions [<default> "." <jvm> (io.io (maybe.else "" (java/lang/System::getProperty "user.dir")))] - (for {@.old <jvm> + (for [@.old <jvm> @.jvm <jvm> @.js (if ffi.on_node_js? (case (ffi.constant ..NodeJs_Process [process]) @@ -426,7 +426,7 @@ ... (in (if (bit\= false (:as Bit output)) ... "." ... output))) - } + ] ... TODO: Replace dummy implementation. (io.io <default>))))) @@ -434,7 +434,7 @@ (with_expansions [<jvm> (do io.monad [_ (java/lang/System::exit code)] (in (undefined)))] - (for {@.old <jvm> + (for [@.old <jvm> @.jvm <jvm> @.js (cond ffi.on_node_js? (..exit_node_js! code) @@ -449,4 +449,4 @@ @.ruby (RubyKernel::exit [code]) ... @.php (..exit [code]) ... @.scheme (..exit [code]) - })))) + ])))) |