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.lux48
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'))