diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux')
-rw-r--r-- | stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux index 6af912b14..081a43829 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux @@ -3,7 +3,7 @@ [lux (#- Module) [type (#+ :sharing)] [abstract - ["." monad (#+ Monad do)]] + ["." monad (#+ do)]] [control ["." try (#+ Try)]] [data @@ -56,7 +56,7 @@ (def: bundle_module (-> Output (Try _.Expression)) - (|>> row.to_list + (|>> row.list (list\map product.right) (monad.fold try.monad (function (_ content so_far) @@ -105,7 +105,7 @@ entry_content (: (Try tar.Content) (|> descriptor (get@ #descriptor.references) - set.to_list + set.list (list.all (function (_ module) (dictionary.get module mapping))) (list\map (|>> ..module_file _.string _.load_relative/1)) (list\fold ..then bundle) @@ -121,7 +121,7 @@ (function (package host_dependencies archive program) (do {! try.monad} [order (dependency.load_order $.key archive) - #let [mapping (|> order + .let [mapping (|> order (list\map (function (_ [module [module_id [descriptor document output]]]) [module module_id])) (dictionary.of_list text.hash) |