aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/compositor.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/compositor.lux')
-rw-r--r--stdlib/source/program/compositor.lux11
1 files changed, 6 insertions, 5 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 695d8a9d9..4dbd5efcd 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -109,10 +109,7 @@
[Packager Path]
(Promise Any)))
(do {@ promise.monad}
- [platform (promise.future platform)
- console (|> console.system
- promise.future
- (:: @ map (|>> try.assume console.async)))]
+ [platform (promise.future platform)]
(case service
(#/cli.Compilation compilation)
(<| (or-crash! "Compilation failed:")
@@ -148,5 +145,9 @@
## TODO: Fix the interpreter...
(undefined)
## (<| (or-crash! "Interpretation failed:")
- ## (interpreter.run (try.with promise.monad) console platform interpretation generation-bundle))
+ ## (do {@ promise.monad}
+ ## [console (|> console.system
+ ## promise.future
+ ## (:: @ map (|>> try.assume console.async)))]
+ ## (interpreter.run (try.with promise.monad) console platform interpretation generation-bundle)))
))))