diff options
author | Eduardo Julian | 2018-08-16 06:22:54 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-08-16 06:22:54 -0400 |
commit | e4c1b1645fa1a62a0bf8c90723eab7be634dd67f (patch) | |
tree | 8413a7270493bc18c7af67d9458e7c31331a0fc7 /stdlib/source/lux/compiler/default/init.lux | |
parent | 18bb5f90d24376d3731986bf2c16bf6b58dcd3cb (diff) |
Extension-related fixes.
Diffstat (limited to 'stdlib/source/lux/compiler/default/init.lux')
-rw-r--r-- | stdlib/source/lux/compiler/default/init.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/compiler/default/init.lux b/stdlib/source/lux/compiler/default/init.lux index 96464ed2a..07aa1217e 100644 --- a/stdlib/source/lux/compiler/default/init.lux +++ b/stdlib/source/lux/compiler/default/init.lux @@ -16,7 +16,6 @@ ["." extension [".E" analysis] [".E" synthesis] - [".E" translation] [".E" statement]]] [// ["." host]]]) @@ -72,13 +71,14 @@ #.extensions [] #.host host}) -(def: #export (state host translate) +(def: #export (state host translate translation-bundle) (All [anchor expression statement] (-> (Host expression statement) (translation.Phase anchor expression statement) + (translation.Bundle anchor expression statement) (statement.State+ anchor expression statement))) (let [synthesis-state [synthesisE.bundle synthesis.init] - translation-state [translationE.bundle (translation.state host)] + translation-state [translation-bundle (translation.state host)] eval (evaluation.evaluator synthesis-state translation-state translate) analysis-state [(analysisE.bundle eval) (..compiler host)]] [statementE.bundle |