aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program
diff options
context:
space:
mode:
authorEduardo Julian2022-02-24 17:47:27 -0400
committerEduardo Julian2022-02-24 17:47:27 -0400
commit08518ba37d9094c5cc8683fc404c349e534b8dc9 (patch)
treedc1f68559982af895a8b9a3c4055959a0f98e267 /stdlib/source/program
parentf27a91a7b67790272578692ea20e2d875dbb3d35 (diff)
Finishing the meta-compiler [Part 4]
Diffstat (limited to 'stdlib/source/program')
-rw-r--r--stdlib/source/program/compositor.lux9
1 files changed, 5 insertions, 4 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 250f184bd..cad7bf352 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -26,7 +26,7 @@
["[0]" console]
["[1]/[0]" program]]
[tool
- [compiler
+ ["[0]" compiler
["[0]" phase]
[default
["[0]" platform {"+" Platform}]]
@@ -128,12 +128,13 @@
(dictionary.has head content output)))))))
(with_expansions [<parameters> (as_is anchor expression artifact)]
- (def: .public (compiler file_context
+ (def: .public (compiler lux_compiler file_context
expander host_analysis platform generation_bundle host_directive_bundle program anchorT,expressionT,directiveT extender
service
packager,package)
(All (_ <parameters>)
- (-> Context
+ (-> (-> Any compiler.Custom)
+ Context
Expander
analysis.Bundle
(IO (Platform <parameters>))
@@ -168,7 +169,7 @@
platform
(Async (Try [Archive (directive.State+ <parameters>)]))
- (:expected (platform.compile phase_wrapper import file_context expander platform compilation [archive state])))
+ (:expected (platform.compile lux_compiler phase_wrapper import file_context expander platform compilation [archive state])))
_ (ioW.freeze (value@ platform.#&file_system platform) file_context archive)
program_context (async#in ($/program.context archive))
host_dependencies (..load_host_dependencies (value@ platform.#&file_system platform) compilation_host_dependencies)