diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/compiler/default.lux | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/stdlib/source/lux/compiler/default.lux b/stdlib/source/lux/compiler/default.lux index ac3fb7aa8..5b4a1a153 100644 --- a/stdlib/source/lux/compiler/default.lux +++ b/stdlib/source/lux/compiler/default.lux @@ -27,7 +27,7 @@ ["." analysis ["." module] [".A" expression]] - ["." translation (#+ Host)] + ["." translation (#+ Host Bundle)] ["." statement [".S" total]]]] ## (luxc [cache] @@ -77,7 +77,8 @@ (with-expansions [<Platform> (as-is (Platform fs anchor expression statement)) <Operation> (as-is (statement.Operation anchor expression statement Any)) - <Compiler> (as-is (statement.State+ anchor expression statement))] + <Compiler> (as-is (statement.State+ anchor expression statement)) + <Bundle> (as-is (Bundle anchor expression statement))] (def: (begin-module-compilation module-name source) (All [anchor expression statement] @@ -137,14 +138,15 @@ {<Operation> (perform-module-compilation (get@ #cli.module configuration) source)})))) - (def: #export (initialize platform configuration) + (def: #export (initialize platform configuration translation-bundle) (All [fs anchor expression statement] - (-> <Platform> Configuration (fs <Compiler>))) + (-> <Platform> Configuration <Bundle> (fs <Compiler>))) (|> platform (get@ #runtime) statement.lift-translation (phase.run' (init.state (get@ #host platform) - (get@ #phase platform))) + (get@ #phase platform) + translation-bundle)) (:: error.Functor<Error> map product.left) (:: (get@ #file-system platform) lift)) @@ -174,11 +176,11 @@ ## (io.fail error)) ) - (def: #export (compile platform configuration) + (def: #export (compile platform configuration translation-bundle) (All [fs anchor expression statement] - (-> <Platform> Configuration (fs Any))) + (-> <Platform> Configuration <Bundle> (fs Any))) (do (:: (get@ #file-system platform) &monad) - [compiler (initialize platform configuration) + [compiler (initialize platform configuration translation-bundle) _ (compile-module platform (set@ #cli.module ..prelude configuration) compiler) _ (compile-module platform configuration compiler) ## _ (cache/io.clean target ...) |