aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/tool/compiler/default/init.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/tool/compiler/default/init.lux')
-rw-r--r--stdlib/source/lux/tool/compiler/default/init.lux22
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/lux/tool/compiler/default/init.lux b/stdlib/source/lux/tool/compiler/default/init.lux
index 850615b37..aebb74046 100644
--- a/stdlib/source/lux/tool/compiler/default/init.lux
+++ b/stdlib/source/lux/tool/compiler/default/init.lux
@@ -26,7 +26,7 @@
[".P" analysis
["." module]]
[".P" synthesis]
- ["." translation]
+ ["." generation]
[".P" statement]
["." extension
[".E" analysis]
@@ -60,8 +60,8 @@
[[bundle state] phase.get-state
#let [eval (evaluation.evaluator expander
(get@ [#statement.synthesis #statement.state] state)
- (get@ [#statement.translation #statement.state] state)
- (get@ [#statement.translation #statement.phase] state))]]
+ (get@ [#statement.generation #statement.state] state)
+ (get@ [#statement.generation #statement.phase] state))]]
(phase.set-state [bundle
(update@ [#statement.analysis #statement.state]
(: (-> analysis.State+ analysis.State+)
@@ -69,24 +69,24 @@
[(analysisE.bundle eval)]))
state)])))
-(def: #export (state expander host translate translation-bundle)
+(def: #export (state expander host generate generation-bundle)
(All [anchor expression statement]
(-> Expander
- (translation.Host expression statement)
- (translation.Phase anchor expression statement)
- (translation.Bundle anchor expression statement)
+ (generation.Host expression statement)
+ (generation.Phase anchor expression statement)
+ (generation.Bundle anchor expression statement)
(statement.State+ anchor expression statement)))
(let [synthesis-state [synthesisE.bundle synthesis.init]
- translation-state [translation-bundle (translation.state host)]
- eval (evaluation.evaluator expander synthesis-state translation-state translate)
+ generation-state [generation-bundle (generation.state host)]
+ eval (evaluation.evaluator expander synthesis-state generation-state generate)
analysis-state [(analysisE.bundle eval) (analysis.state ..info host)]]
[statementE.bundle
{#statement.analysis {#statement.state analysis-state
#statement.phase (analysisP.phase expander)}
#statement.synthesis {#statement.state synthesis-state
#statement.phase synthesisP.phase}
- #statement.translation {#statement.state translation-state
- #statement.phase translate}}]))
+ #statement.generation {#statement.state generation-state
+ #statement.phase generate}}]))
(type: Reader
(-> Source (Error [Source Code])))