diff options
| author | Eduardo Julian | 2021-07-27 03:51:10 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-07-27 03:51:10 -0400 |
| commit | 061fd8a209bbcaffc2bfb850ac6046752a567d50 (patch) | |
| tree | 8cd83ad7d0bc06ded7976eb5420467e485733ae8 /stdlib/source/program/compositor.lux | |
| parent | e64b6d0114c26a455e19a416b5f02a4d19dd711f (diff) | |
Re-named wrap => in && unwrap => out.
Diffstat (limited to 'stdlib/source/program/compositor.lux')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 8d9874216..c804d86b0 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -70,7 +70,7 @@ (io.run (\ world/program.default exit +1))) (#try.Success output) - (wrap output)))) + (in output)))) (def: (timed process) (All [a] @@ -82,7 +82,7 @@ (instant.span start) %.duration (format "Duration: ")))]] - (wrap output))) + (in output))) (def: (package! fs host_dependencies [packager package] static archive context) (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Static Archive Context (Async (Try Any))) @@ -91,7 +91,7 @@ (\ fs write content package) (#try.Failure error) - (\ async.monad wrap (#try.Failure error)))) + (\ async.monad in (#try.Failure error)))) (def: (load_host_dependencies fs host_dependencies) (-> (file.System Async) (List file.Path) (Async (Try (Dictionary file.Path Binary)))) @@ -102,7 +102,7 @@ (dictionary.new text.hash))] (case pending #.Nil - (wrap output) + (in output) (#.Cons head tail) (do ! @@ -152,7 +152,7 @@ (Async (Try [Archive (directive.State+ <parameters>)])) (:assume (platform.compile import static expander platform compilation [archive state]))) _ (ioW.freeze (get@ #platform.&file_system platform) static archive) - program_context (async\wrap ($/program.context archive)) + program_context (async\in ($/program.context archive)) host_dependencies (..load_host_dependencies (get@ #platform.&file_system platform) compilation_host_dependencies) _ (..package! (for {@.old (file.async file.default) @.jvm (file.async file.default) @@ -162,14 +162,14 @@ static archive program_context)] - (wrap (debug.log! "Compilation complete!")))) + (in (debug.log! "Compilation complete!")))) (#/cli.Export export) (<| (or_crash! "Export failed:") (do (try.with async.monad) [_ (/export.export (get@ #platform.&file_system platform) export)] - (wrap (debug.log! "Export complete!")))) + (in (debug.log! "Export complete!")))) (#/cli.Interpretation interpretation) ## TODO: Fix the interpreter... |