aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/meta/compiler/default/init.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/meta/compiler/default/init.lux')
-rw-r--r--stdlib/source/library/lux/meta/compiler/default/init.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/meta/compiler/default/init.lux b/stdlib/source/library/lux/meta/compiler/default/init.lux
index b496058e6..b749ffdee 100644
--- a/stdlib/source/library/lux/meta/compiler/default/init.lux
+++ b/stdlib/source/library/lux/meta/compiler/default/init.lux
@@ -68,23 +68,23 @@
(let [synthesis_state [synthesisE.bundle ///synthesis.init]
generation_state [generation_bundle (///generation.state host module)]
lux (///analysis.state (///analysis.info version.latest target configuration))
- eval (///analysis/evaluation.evaluator expander
+ analysis_phase (analysisP.phase extender expander)
+ eval (///analysis/evaluation.evaluator analysis_phase
[synthesis_state (synthesisP.phase extender lux)]
[generation_state (generate extender lux)])
analysis_state [(analysisE.bundle eval anchor,expression,declaration host_analysis)
lux]]
[extension.empty
[///declaration.#analysis [///declaration.#state analysis_state
- ///declaration.#phase (analysisP.phase expander)]
+ ///declaration.#phase analysis_phase]
///declaration.#synthesis [///declaration.#state synthesis_state
///declaration.#phase (synthesisP.phase extender)]
///declaration.#generation [///declaration.#state generation_state
///declaration.#phase (generate extender)]]]))
-(def .public (with_default_declarations expander host_analysis program anchorT,expressionT,declarationT extender)
+(def .public (with_default_declarations host_analysis program anchorT,expressionT,declarationT extender)
(All (_ anchor expression declaration)
- (-> Expander
- ///analysis.Bundle
+ (-> ///analysis.Bundle
(Program expression declaration)
[Type Type Type]
Extender
@@ -92,7 +92,7 @@
(///declaration.State+ anchor expression declaration))))
(function (_ [declaration_extensions sub_state])
[(dictionary.composite declaration_extensions
- (luxD.bundle expander host_analysis program anchorT,expressionT,declarationT extender))
+ (luxD.bundle host_analysis program anchorT,expressionT,declarationT extender))
sub_state]))
(type Reader