diff options
Diffstat (limited to 'stdlib/source/lux/tool/compiler/meta/cache.lux')
| -rw-r--r-- | stdlib/source/lux/tool/compiler/meta/cache.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/lux/tool/compiler/meta/cache.lux b/stdlib/source/lux/tool/compiler/meta/cache.lux index a0d5302f3..45b33f4f7 100644 --- a/stdlib/source/lux/tool/compiler/meta/cache.lux +++ b/stdlib/source/lux/tool/compiler/meta/cache.lux @@ -5,7 +5,7 @@ ["ex" exception (#+ exception:)] pipe] [data - ["." bit ("#/." equivalence)] + ["." bit ("#;." equivalence)] ["." maybe] ["." error] ["." product] @@ -14,7 +14,7 @@ ["." text [format (#- Format)]] [collection - ["." list ("#/." functor fold)] + ["." list ("#;." functor fold)] ["dict" dictionary (#+ Dictionary)] ["." set (#+ Set)]]] [world @@ -92,7 +92,7 @@ (do @ [_ (..delete System<m> file)] (wrap #1))))))] - [(list.every? (bit/= #1)) + [(list.every? (bit;= #1)) (if> [(..delete System<m> document)] [(wrap [])])])))) @@ -150,7 +150,7 @@ (do> @ [(..cached System<m>)] [(monad.map @ (load-document System<m> contexts root key binary)) - (:: @ map (list/fold (function (_ full-document archive) + (:: @ map (list;fold (function (_ full-document archive) (case full-document (#.Some [[module references] document]) (dict.put module [references document] archive) @@ -160,17 +160,17 @@ (: (Dictionary Text [(List Module) (Ex [d] (Document d))]) (dict.new text.hash))))])) #let [candidate-entries (dict.entries candidate) - candidate-dependencies (list/map (product.both id product.left) + candidate-dependencies (list;map (product.both id product.left) candidate-entries) candidate-archive (|> candidate-entries - (list/map (product.both id product.right)) + (list;map (product.both id product.right)) (dict.from-list text.hash)) graph (|> candidate dict.entries - (list/map (product.both id product.left)) + (list;map (product.both id product.left)) /dependency.graph (/dependency.prune candidate-archive)) - archive (list/fold (function (_ module archive) + archive (list;fold (function (_ module archive) (if (dict.contains? module graph) archive (dict.remove module archive))) |