diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/compiler/default/platform.lux')
-rw-r--r-- | stdlib/source/library/lux/tool/compiler/default/platform.lux | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/default/platform.lux b/stdlib/source/library/lux/tool/compiler/default/platform.lux index b5eed68f8..1894359a9 100644 --- a/stdlib/source/library/lux/tool/compiler/default/platform.lux +++ b/stdlib/source/library/lux/tool/compiler/default/platform.lux @@ -22,9 +22,9 @@ ["%" format (#+ format)]] [collection ["." dictionary (#+ Dictionary)] - ["." row (#+ Row) ("#\." fold)] + ["." row (#+ Row) ("#\." mix)] ["." set (#+ Set)] - ["." list ("#\." monoid functor fold)]] + ["." list ("#\." monoid functor mix)]] [format ["_" binary (#+ Writer)]]] [world @@ -280,9 +280,9 @@ #///directive.state #extension.state #///generation.log]) - (row\fold (function (_ right left) - (format left ..compilation_log_separator right)) - module))) + (row\mix (function (_ right left) + (format left ..compilation_log_separator right)) + module))) (def: with_reset_log (All [<type_vars>] @@ -329,10 +329,10 @@ (|> mapping (dictionary.revised' source ..empty (set.has target)) (dictionary.revised source (set.union forward)))] - (list\fold (function (_ previous) - (dictionary.revised' previous ..empty (set.has target))) - with_dependence+transitives - (set.list backward))))))] + (list\mix (function (_ previous) + (dictionary.revised' previous ..empty (set.has target))) + with_dependence+transitives + (set.list backward))))))] (|> dependence (revised@ #depends_on (update_dependence @@ -561,17 +561,17 @@ ... This currently assumes that all imports will be specified once in a single .module: form. ... This might not be the case in the future. [all_dependencies duplicates _] (: [(Set Module) (Set Module) Bit] - (list\fold (function (_ new [all duplicates seen_prelude?]) - (if (set.member? all new) - (if (text\= .prelude_module new) - (if seen_prelude? - [all (set.has new duplicates) seen_prelude?] - [all duplicates true]) - [all (set.has new duplicates) seen_prelude?]) - [(set.has new all) duplicates seen_prelude?])) - (: [(Set Module) (Set Module) Bit] - [all_dependencies ..empty (set.empty? all_dependencies)]) - new_dependencies))] + (list\mix (function (_ new [all duplicates seen_prelude?]) + (if (set.member? all new) + (if (text\= .prelude_module new) + (if seen_prelude? + [all (set.has new duplicates) seen_prelude?] + [all duplicates true]) + [all (set.has new duplicates) seen_prelude?]) + [(set.has new all) duplicates seen_prelude?])) + (: [(Set Module) (Set Module) Bit] + [all_dependencies ..empty (set.empty? all_dependencies)]) + new_dependencies))] [archive state] (if (set.empty? duplicates) (case new_dependencies #.End @@ -584,7 +584,7 @@ (monad.all ..monad)) .let [archive (|> archive,document+ (list\map product.left) - (list\fold archive.merged archive))]] + (list\mix archive.merged archive))]] (in [archive (try.trusted (..updated_state archive state))]))) (async\in (exception.except ..cannot_import_twice [module duplicates])))] |