diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/locale/language.lux | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/stdlib/source/test/lux/locale/language.lux b/stdlib/source/test/lux/locale/language.lux index e6ded5090..b8ac893fd 100644 --- a/stdlib/source/test/lux/locale/language.lux +++ b/stdlib/source/test/lux/locale/language.lux @@ -13,7 +13,7 @@ ["." text] [collection ["." set (#+ Set)] - ["." list ("#\." functor fold)]]] + ["." list ("#\." functor mix)]]] [macro ["." template]] [math @@ -188,29 +188,29 @@ (Hash a) (List Bundle) [Nat (Set a)])) - (list\fold (function (_ bundle [amount set]) - [(n.+ amount (value@ #amount bundle)) - (set.union set (lens bundle))]) - [0 (set.empty hash)] - territories)) + (list\mix (function (_ bundle [amount set]) + [(n.+ amount (value@ #amount bundle)) + (set.union set (lens bundle))]) + [0 (set.empty hash)] + territories)) (def: languages_test Test (|> ..languages list.reversed (list\map (value@ #test)) - (list\fold _.and - (`` ($_ _.and - (~~ (template [<lens> <tag> <hash>] - [(let [[amount set] (..aggregate (value@ <tag>) <hash> ..languages)] - (_.cover [<lens>] - (n.= amount (set.size set))))] + (list\mix _.and + (`` ($_ _.and + (~~ (template [<lens> <tag> <hash>] + [(let [[amount set] (..aggregate (value@ <tag>) <hash> ..languages)] + (_.cover [<lens>] + (n.= amount (set.size set))))] - [/.name #names text.hash] - [/.code #codes text.hash] - [/.equivalence #languages /.hash] - )) - ))))) + [/.name #names text.hash] + [/.code #codes text.hash] + [/.equivalence #languages /.hash] + )) + ))))) (template: (!aliases <reference> <aliases>) [(_.cover <aliases> |