diff options
author | Eduardo Julian | 2018-08-29 22:36:47 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-08-29 22:36:47 -0400 |
commit | ba93f7da278a3fdc71729d7a0325c99cec74ca3c (patch) | |
tree | 84f298edb360fefb6c6b518394a4565546ef0739 /stdlib/source/lux/world/environment.jvm.lux | |
parent | c9ff55f6c989aff28b2d687fd8aa0ef520701e2c (diff) |
Adapted new-luxc to latest stdlib changes.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/world/environment.jvm.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/lux/world/environment.jvm.lux b/stdlib/source/lux/world/environment.jvm.lux index 019dab706..2a64c31f8 100644 --- a/stdlib/source/lux/world/environment.jvm.lux +++ b/stdlib/source/lux/world/environment.jvm.lux @@ -30,20 +30,20 @@ (def: (consume-iterator f iterator) (All [a b] (-> (-> a b) (Iterator a) (List b))) - (if (Iterator::hasNext [] iterator) - (#.Cons (f (Iterator::next [] iterator)) + (if (Iterator::hasNext iterator) + (#.Cons (f (Iterator::next iterator)) (consume-iterator f iterator)) #.Nil)) (def: (entry-to-kv entry) (All [k v] (-> (Map$Entry k v) [k v])) - [(Map$Entry::getKey [] entry) - (Map$Entry::getValue [] entry)]) + [(Map$Entry::getKey entry) + (Map$Entry::getValue entry)]) (def: #export read (IO Context) - (io (|> (System::getenv []) - (Map::entrySet []) - (Set::iterator []) + (io (|> (System::getenv) + Map::entrySet + Set::iterator (consume-iterator entry-to-kv) (dictionary.from-list text.Hash<Text>)))) |