aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/compositor.lux24
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 886582c34..371dbdec7 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -37,7 +37,7 @@
["." syntax]
["." analysis
[macro (#+ Expander)]]
- ["." generation]
+ ["." generation (#+ Buffer)]
["." directive]
[phase
[extension (#+ Extender)]]]]
@@ -46,8 +46,8 @@
[descriptor (#+ Module)]]]]
## ["." interpreter]
]]
- [/
- ["." cli (#+ Service)]])
+ ["." / #_
+ ["#." cli (#+ Service)]])
(def: (or-crash! failure-description action)
(All [a]
@@ -90,7 +90,7 @@
## (promise@wrap (#try.Failure error)))))
(def: #export (compiler target partial-host-extension
- expander host-analysis platform host module generation-bundle host-directive-bundle program extender
+ expander host-analysis platform host generation-bundle host-directive-bundle program extender
service
packager,package)
(All [<parameters>]
@@ -100,7 +100,6 @@
analysis.Bundle
(IO (Platform <parameters>))
Host
- Module
(generation.Bundle <parameters>)
(directive.Bundle <parameters>)
(-> expression artifact)
@@ -114,14 +113,15 @@
promise.future
(:: @ map (|>> try.assume console.async)))]
(case service
- (#cli.Compilation configuration)
+ (#/cli.Compilation configuration)
(<| (or-crash! "Compilation failed:")
(do (try.with promise.monad)
- [state (:share [<parameters>]
- {(Platform <parameters>)
- platform}
- {(Promise (Try (directive.State+ <parameters>)))
- (platform.initialize target host module expander host-analysis platform generation-bundle host-directive-bundle program extender)})
+ [[state runtime-buffer] (:share [<parameters>]
+ {(Platform <parameters>)
+ platform}
+ {(Promise (Try [(directive.State+ <parameters>)
+ (Buffer artifact)]))
+ (platform.initialize target host (get@ #/cli.module configuration) expander host-analysis platform generation-bundle host-directive-bundle program extender)})
[archive state] (:share [<parameters>]
{(Platform <parameters>)
platform}
@@ -132,7 +132,7 @@
]
(wrap (log! "Compilation complete!"))))
- (#cli.Interpretation configuration)
+ (#/cli.Interpretation configuration)
## TODO: Fix the interpreter...
(undefined)
## (<| (or-crash! "Interpretation failed:")