aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/tool/interpreter.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/tool/interpreter.lux')
-rw-r--r--stdlib/source/library/lux/tool/interpreter.lux4
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/library/lux/tool/interpreter.lux b/stdlib/source/library/lux/tool/interpreter.lux
index 3a91862f8..b101a278a 100644
--- a/stdlib/source/library/lux/tool/interpreter.lux
+++ b/stdlib/source/library/lux/tool/interpreter.lux
@@ -100,7 +100,7 @@
(def: (interpret_expression code)
(All (_ anchor expression directive)
(-> Code <Interpretation>))
- (do {! phase.monad}
+ (do [! phase.monad]
[state (extension.lifted phase.get_state)
.let [analyse (value@ [#directive.analysis #directive.phase] state)
synthesize (value@ [#directive.synthesis #directive.phase] state)
@@ -199,7 +199,7 @@
Configuration
(generation.Bundle anchor expression directive)
(! Any)))
- (do {! Monad<!>}
+ (do [! Monad<!>]
[state (initialize Monad<!> Console<!> platform configuration)]
(loop [context [#configuration configuration
#state state