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.lux36
1 files changed, 20 insertions, 16 deletions
diff --git a/stdlib/source/library/lux/tool/interpreter.lux b/stdlib/source/library/lux/tool/interpreter.lux
index 8a12cd2db..79c8073f3 100644
--- a/stdlib/source/library/lux/tool/interpreter.lux
+++ b/stdlib/source/library/lux/tool/interpreter.lux
@@ -130,10 +130,11 @@
(function (_ state)
(case (<| (phase.result' state)
(:sharing [anchor expression directive]
- {(State+ anchor expression directive)
- state}
- {<Interpretation>
- (interpret_directive code)}))
+ (State+ anchor expression directive)
+ state
+
+ <Interpretation>
+ (interpret_directive code)))
(#try.Success [state' output])
(#try.Success [state' output])
@@ -141,10 +142,11 @@
(if (ex.match? total.not_a_directive error)
(<| (phase.result' state)
(:sharing [anchor expression directive]
- {(State+ anchor expression directive)
- state}
- {<Interpretation>
- (interpret_expression code)}))
+ (State+ anchor expression directive)
+ state
+
+ <Interpretation>
+ (interpret_expression code)))
(#try.Failure error)))))
)
@@ -176,17 +178,19 @@
[source' input] (syntax.parse ..module syntax.no_aliases (text.size _code) (value@ #source context))
[state' representation] (let [... TODO: Simplify ASAP
state (:sharing [anchor expression directive]
- {<Context>
- context}
- {(State+ anchor expression directive)
- (value@ #state context)})]
+ <Context>
+ context
+
+ (State+ anchor expression directive)
+ (value@ #state context))]
(<| (phase.result' state)
... TODO: Simplify ASAP
(:sharing [anchor expression directive]
- {<Context>
- context}
- {(Operation anchor expression directive Text)
- (execute (value@ #configuration context) input)})))]
+ <Context>
+ context
+
+ (Operation anchor expression directive Text)
+ (execute (value@ #configuration context) input))))]
(in [(|> context
(with@ #state state')
(with@ #source source'))