aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux
diff options
context:
space:
mode:
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.lux8
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)