diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/interpreter.lux')
-rw-r--r-- | stdlib/source/library/lux/tool/interpreter.lux | 36 |
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')) |