diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/tool/compiler/default/init.lux | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/stdlib/source/lux/tool/compiler/default/init.lux b/stdlib/source/lux/tool/compiler/default/init.lux index c98304c87..19a71742c 100644 --- a/stdlib/source/lux/tool/compiler/default/init.lux +++ b/stdlib/source/lux/tool/compiler/default/init.lux @@ -1,5 +1,6 @@ (.module: [lux (#- Module) + ["@" target (#+ Host)] [abstract ["." monad (#+ do)]] [control @@ -49,15 +50,16 @@ ["." artifact] ["." document]]]]]) -(def: #export (info target) +(def: #export (info host) (-> Text Info) - {#.target target + {#.target host #.version ///version.version #.mode #.Build}) -(def: #export (state target expander host-analysis host generate generation-bundle host-directive-bundle program extender) +(def: #export (state target module expander host-analysis host generate generation-bundle host-directive-bundle program extender) (All [anchor expression directive] - (-> Text + (-> Host + Module Expander ///analysis.Bundle (///generation.Host expression directive) @@ -68,7 +70,7 @@ Extender (///directive.State+ anchor expression directive))) (let [synthesis-state [synthesisE.bundle ///synthesis.init] - generation-state [generation-bundle (///generation.state host)] + generation-state [generation-bundle (///generation.state host module)] eval (///analysis/evaluation.evaluator expander synthesis-state generation-state generate) analysis-state [(analysisE.bundle eval host-analysis) (///analysis.state (..info target) host)]] @@ -130,12 +132,12 @@ (do ///phase.monad [_ (///directive.lift-analysis (module.set-compiled module)) - final-buffer (///directive.lift-generation - (///generation.save-buffer! module)) analysis-module (<| (: (Operation .Module)) ///directive.lift-analysis extension.lift - macro.current-module)] + macro.current-module) + final-buffer (///directive.lift-generation + ///generation.buffer)] (wrap [analysis-module final-buffer]))) ## TODO: Inline ASAP |