aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/compiler/default.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/compiler/default.lux8
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)