diff options
Diffstat (limited to 'stdlib/source/lux/compiler/default.lux')
| -rw-r--r-- | stdlib/source/lux/compiler/default.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/compiler/default.lux b/stdlib/source/lux/compiler/default.lux index e53e08142..190eee760 100644 --- a/stdlib/source/lux/compiler/default.lux +++ b/stdlib/source/lux/compiler/default.lux @@ -85,7 +85,7 @@ (def: (begin-module-compilation module-name source) (All [anchor expression statement] (-> Text Source <Operation>)) - (statement.lift-analysis! + (statement.lift-analysis (do phase.Monad<Operation> [_ (module.create (text/hash (get@ #code source)) module-name) _ (analysis.set-current-module module-name)] @@ -95,7 +95,7 @@ (All [anchor expression statement] (-> Text <Operation>)) (|>> module.set-compiled - statement.lift-analysis!)) + statement.lift-analysis)) (def: (loop-module-compilation module-name) (All [anchor expression statement] @@ -103,7 +103,7 @@ (forgive-eof (loop [_ []] (do phase.Monad<Operation> - [code (statement.lift-analysis! + [code (statement.lift-analysis (do @ [code (..read module-name syntax.no-aliases) #let [[cursor _] code] @@ -144,7 +144,7 @@ (-> <Platform> Configuration (fs <Compiler>))) (|> platform (get@ #runtime) - statement.lift-translation! + statement.lift-translation (phase.run' (init.state (get@ #host platform) (get@ #phase platform))) (:: error.Functor<Error> map product.left) |