diff options
Diffstat (limited to 'stdlib/source/library/lux/world/program.lux')
-rw-r--r-- | stdlib/source/library/lux/world/program.lux | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/stdlib/source/library/lux/world/program.lux b/stdlib/source/library/lux/world/program.lux index 3a4b1417a..48c5f6ada 100644 --- a/stdlib/source/library/lux/world/program.lux +++ b/stdlib/source/library/lux/world/program.lux @@ -17,13 +17,13 @@ [parser ["[0]" environment {"+" [Environment]}]]] [data - ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" bit ("[1]#[0]" equivalence)] ["[0]" text ["%" format {"+" [format]}]] [collection ["[0]" array {"+" [Array]}] ["[0]" dictionary {"+" [Dictionary]}] - ["[0]" list ("[1]\[0]" functor)]]] + ["[0]" list ("[1]#[0]" functor)]]] ["[0]" macro ["[0]" template]] [math @@ -55,9 +55,9 @@ (def: .public (environment monad program) (All (_ !) (-> (Monad !) (Program !) (! Environment))) (do [! monad] - [variables (\ program available_variables []) + [variables (# program available_variables []) entries (monad.each ! (function (_ name) - (\ ! each (|>> [name]) (\ program variable name))) + (# ! each (|>> [name]) (# program variable name))) variables)] (in (|> entries (list.all (function (_ [name value]) @@ -74,7 +74,7 @@ (~~ (template [<method>] [(def: <method> - (\ program <method>))] + (# program <method>))] [home] [directory] @@ -82,7 +82,7 @@ (~~ (template [<method>] [(def: <method> - (|>> (\ program <method>) async.future))] + (|>> (# program <method>) async.future))] [available_variables] [variable] @@ -134,11 +134,11 @@ ("static" getProperty [java/lang/String] "?" java/lang/String) ("static" exit [int] "io" void)]) - (def: (jvm\\consume iterator) + (def: (jvm##consume iterator) (All (_ a) (-> (java/util/Iterator a) (List a))) (if (java/util/Iterator::hasNext iterator) {.#Item (java/util/Iterator::next iterator) - (jvm\\consume iterator)} + (jvm##consume iterator)} {.#End})) )] (for [@.old (as_is <jvm>) @@ -309,7 +309,7 @@ (with_expansions [<jvm> (io.io (|> (java/lang/System::getenv) java/util/Map::keySet java/util/Set::iterator - ..jvm\\consume))] + ..jvm##consume))] (for [@.old <jvm> @.jvm <jvm> @.js (io.io (if ffi.on_node_js? @@ -317,12 +317,12 @@ {.#Some process/env} (|> (Object::entries [process/env]) (array.list {.#None}) - (list\each (|>> (array.read! 0) maybe.trusted))) + (list#each (|>> (array.read! 0) maybe.trusted))) {.#None} (list)) (list))) - @.python (\ io.monad each (array.list {.#None}) (os/environ::keys [])) + @.python (# io.monad each (array.list {.#None}) (os/environ::keys [])) ... Lua offers no way to get all the environment variables available. @.lua (io.io (list)) @.ruby (|> (RubyEnv::keys []) @@ -333,7 +333,7 @@ ... (in (|> environment ... ..array_keys ... (array.list {.#None}) - ... (list\each (function (_ variable) + ... (list#each (function (_ variable) ... [variable ("php array read" (:as Nat variable) environment)])) ... (dictionary.of_list text.hash)))) ... @.scheme (do io.monad @@ -392,7 +392,7 @@ @.ruby (io.io (RubyDir::home)) ... @.php (do io.monad ... [output (..getenv/1 ["HOME"])] - ... (in (if (bit\= false (:as Bit output)) + ... (in (if (bit#= false (:as Bit output)) ... "~" ... output))) ] @@ -423,7 +423,7 @@ @.ruby (io.io (RubyFileUtils::pwd)) ... @.php (do io.monad ... [output (..getcwd [])] - ... (in (if (bit\= false (:as Bit output)) + ... (in (if (bit#= false (:as Bit output)) ... "." ... output))) ] |