diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/interpreter.lux')
-rw-r--r-- | stdlib/source/library/lux/tool/interpreter.lux | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/stdlib/source/library/lux/tool/interpreter.lux b/stdlib/source/library/lux/tool/interpreter.lux index a5e907a52..7fc7687be 100644 --- a/stdlib/source/library/lux/tool/interpreter.lux +++ b/stdlib/source/library/lux/tool/interpreter.lux @@ -8,7 +8,7 @@ [data ["[0]" text ("[1]#[0]" equivalence) ["%" format {"+" format}]]] - [type {"+" :sharing} + [type {"+" sharing} ["[0]" check]] [compiler ["[0]" phase @@ -129,24 +129,24 @@ (-> Configuration Code <Interpretation>)) (function (_ state) (case (<| (phase.result' state) - (:sharing [anchor expression directive] - (State+ anchor expression directive) - state + (sharing [anchor expression directive] + (State+ anchor expression directive) + state - <Interpretation> - (interpret_directive code))) + <Interpretation> + (interpret_directive code))) {try.#Success [state' output]} {try.#Success [state' output]} {try.#Failure error} (if (ex.match? total.not_a_directive error) (<| (phase.result' state) - (:sharing [anchor expression directive] - (State+ anchor expression directive) - state - - <Interpretation> - (interpret_expression code))) + (sharing [anchor expression directive] + (State+ anchor expression directive) + state + + <Interpretation> + (interpret_expression code))) {try.#Failure error})))) ) @@ -177,20 +177,20 @@ [.let [[_where _offset _code] (the #source context)] [source' input] (syntax.parse ..module syntax.no_aliases (text.size _code) (the #source context)) [state' representation] (let [... TODO: Simplify ASAP - state (:sharing [anchor expression directive] - <Context> - context - - (State+ anchor expression directive) - (the #state context))] + state (sharing [anchor expression directive] + <Context> + context + + (State+ anchor expression directive) + (the #state context))] (<| (phase.result' state) ... TODO: Simplify ASAP - (:sharing [anchor expression directive] - <Context> - context - - (Operation anchor expression directive Text) - (execute (the #configuration context) input))))] + (sharing [anchor expression directive] + <Context> + context + + (Operation anchor expression directive Text) + (execute (the #configuration context) input))))] (in [(|> context (has #state state') (has #source source')) |