diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/tool/compiler/default/init.lux | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/default/init.lux b/stdlib/source/library/lux/tool/compiler/default/init.lux index 8f32b5108..c44dd5e7e 100644 --- a/stdlib/source/library/lux/tool/compiler/default/init.lux +++ b/stdlib/source/library/lux/tool/compiler/default/init.lux @@ -2,6 +2,7 @@ [library [lux "*" ["@" target {"+" Target}] + ["[0]" meta] [abstract ["[0]" monad {"+" do}]] [control @@ -17,7 +18,6 @@ ["[0]" dictionary] ["[0]" set] ["[0]" sequence ("[1]#[0]" functor)]]] - ["[0]" meta] [world ["[0]" file]]]] ["[0]" // "_" @@ -38,7 +38,7 @@ ["[0]P" synthesis] ["[0]P" directive] ["[0]P" analysis - ["[0]" module]] + ["[0]A" module]] ["[0]" extension {"+" Extender} ["[0]E" analysis] ["[0]E" synthesis] @@ -46,10 +46,10 @@ ["[0]D" lux]]]]]] [meta ["[0]" archive {"+" Archive} - ["[0]" descriptor] ["[0]" registry {"+" Registry}] - ["[0]" document]]]] - ]) + ["[0]" module] + ["[0]" descriptor] + ["[0]" document]]]]]) (def: .public (state target module expander host_analysis host generate generation_bundle) (All (_ anchor expression directive) @@ -129,8 +129,8 @@ _ (///directive.set_current_module module)] (///directive.lifted_analysis (do [! ///phase.monad] - [_ (module.create hash module) - _ (monad.each ! module.import dependencies) + [_ (moduleA.create hash module) + _ (monad.each ! moduleA.import dependencies) .let [source (///analysis.source (value@ ///.#module input) (value@ ///.#code input))] _ (///analysis.set_source_code source)] (in [source [///generation.empty_buffer @@ -142,7 +142,7 @@ (///directive.Operation anchor expression directive [.Module (Payload directive)]))) (do ///phase.monad [_ (///directive.lifted_analysis - (module.set_compiled module)) + (moduleA.set_compiled module)) analysis_module (<| (: (Operation .Module)) ///directive.lifted_analysis extension.lifted @@ -256,8 +256,9 @@ descriptor.#references (set.of_list text.hash dependencies) descriptor.#state {.#Compiled}]]] (in [state - {.#Right [descriptor - (document.document key analysis_module) + {.#Right [[module.#id (try.else module.runtime (archive.id module archive)) + module.#descriptor descriptor + module.#document (document.document key analysis_module)] (sequence#each (function (_ [artifact_id custom directive]) [artifact_id custom (write_directive directive)]) final_buffer) |