diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux index 6ee936f42..e2a3ef238 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux @@ -13,7 +13,7 @@ ["." text ["%" format (#+ format)]] [collection - ["." list ("#\." functor fold)] + ["." list ("#\." functor mix)] ["." dictionary (#+ Dictionary)] ["." set (#+ Set)]]]]] [/// @@ -46,9 +46,9 @@ (def: .public graph (-> (List Dependency) Graph) - (list\fold (function (_ [module imports] graph) - (dictionary.has module imports graph)) - ..empty)) + (list\mix (function (_ [module imports] graph) + (dictionary.has module imports graph)) + ..empty)) (def: (ancestry archive) (-> Archive Graph) @@ -62,15 +62,15 @@ (#try.Failure error) ..fresh)] ancestors (monad.map ! recur (set.list parents))] - (in (list\fold set.union parents ancestors))))) + (in (list\mix set.union parents ancestors))))) ancestry (memo.open memo)] - (list\fold (function (_ module memory) - (if (dictionary.key? memory module) - memory - (let [[memory _] (ancestry [memory module])] - memory))) - ..empty - (archive.archived archive)))) + (list\mix (function (_ module memory) + (if (dictionary.key? memory module) + memory + (let [[memory _] (ancestry [memory module])] + memory))) + ..empty + (archive.archived archive)))) (def: (dependency? ancestry target source) (-> Graph Module Module Bit) |