diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/locale/language.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/test/lux/locale/language.lux b/stdlib/source/test/lux/locale/language.lux index ba19738dc..fd6d93b90 100644 --- a/stdlib/source/test/lux/locale/language.lux +++ b/stdlib/source/test/lux/locale/language.lux @@ -13,7 +13,7 @@ ["[0]" text] [collection ["[0]" set {"+" [Set]}] - ["[0]" list ("[1]\[0]" functor mix)]]] + ["[0]" list ("[1]#[0]" functor mix)]]] [macro ["[0]" template]] [math @@ -38,8 +38,8 @@ languages (: (List /.Language) (`` (list (~~ (template.spliced <languages>)))))] [#amount amount - #names (|> languages (list\each /.name) (set.of_list text.hash)) - #codes (|> languages (list\each /.code) (set.of_list text.hash)) + #names (|> languages (list#each /.name) (set.of_list text.hash)) + #codes (|> languages (list#each /.code) (set.of_list text.hash)) #languages (set.of_list /.hash languages) #test (_.cover <languages> true)]))] @@ -189,7 +189,7 @@ (Hash a) (List Bundle) [Nat (Set a)])) - (list\mix (function (_ bundle [amount set]) + (list#mix (function (_ bundle [amount set]) [(n.+ amount (value@ #amount bundle)) (set.union set (lens bundle))]) [0 (set.empty hash)] @@ -199,8 +199,8 @@ Test (|> ..languages list.reversed - (list\each (value@ #test)) - (list\mix _.and + (list#each (value@ #test)) + (list#mix _.and (`` ($_ _.and (~~ (template [<lens> <tag> <hash>] [(let [[amount set] (..aggregate (value@ <tag>) <hash> ..languages)] @@ -215,7 +215,7 @@ (template: (!aliases <reference> <aliases>) [(_.cover <aliases> - (list.every? (\ /.equivalence = <reference>) + (list.every? (# /.equivalence = <reference>) (`` (list (~~ (template.spliced <aliases>))))))]) (def: aliases_test/0 @@ -279,10 +279,10 @@ (def: .public random (Random /.Language) (let [options (|> ..languages - (list\each (|>> (value@ #languages) set.list)) + (list#each (|>> (value@ #languages) set.list)) list.together)] (do [! random.monad] - [choice (\ ! each (n.% (list.size options)) + [choice (# ! each (n.% (list.size options)) random.nat)] (in (maybe.trusted (list.item choice options)))))) |