From ec1f31b5a1492d5e0ab260397291d4449483bbd9 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Mon, 23 Aug 2021 02:30:53 -0400 Subject: The Python compiler can now be compiled by the new JVM compiler. --- stdlib/source/program/compositor/import.lux | 36 ++++++++++++++--------------- 1 file changed, 18 insertions(+), 18 deletions(-) (limited to 'stdlib/source/program/compositor/import.lux') diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux index 5d1eba51c..1950c4ebb 100644 --- a/stdlib/source/program/compositor/import.lux +++ b/stdlib/source/program/compositor/import.lux @@ -51,26 +51,26 @@ (|>> (\ ! map (.result tar.parser)) (\ ! join) (\ ! map (|>> row.list - (monad.fold ! (function (_ entry import) - (case entry - (#tar.Normal [path instant mode ownership content]) - (let [path (tar.from_path path)] - (case (dictionary.has' path (tar.data content) import) - (#try.Failure error) - (exception.except ..duplicate [library path]) + (monad.mix ! (function (_ entry import) + (case entry + (#tar.Normal [path instant mode ownership content]) + (let [path (tar.from_path path)] + (case (dictionary.has' path (tar.data content) import) + (#try.Failure error) + (exception.except ..duplicate [library path]) - import' - import')) - - _ - (exception.except ..useless_tar_entry []))) - import))) + import' + import')) + + _ + (exception.except ..useless_tar_entry []))) + import))) (\ ! join))))))) (def: .public (import system libraries) (-> (file.System Async) (List Library) (Action Import)) - (monad.fold (: (Monad Action) - (try.with async.monad)) - (..import_library system) - (dictionary.empty text.hash) - libraries)) + (monad.mix (: (Monad Action) + (try.with async.monad)) + (..import_library system) + (dictionary.empty text.hash) + libraries)) -- cgit v1.2.3