aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/experiment
diff options
context:
space:
mode:
authorEduardo Julian2022-08-11 04:15:07 -0400
committerEduardo Julian2022-08-11 04:15:07 -0400
commit065e8a4d8122d4616b570496915d2c0e2c78cd6b (patch)
treef2bbdc3e40b796b34026ab04c9a478d8a3f082d5 /stdlib/source/experiment
parent68d78235694c633c956bb9e8a007cad7d65370bc (diff)
Re-named the "case" macro to "when".
Diffstat (limited to 'stdlib/source/experiment')
-rw-r--r--stdlib/source/experiment/tool/interpreter.lux4
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/experiment/tool/interpreter.lux b/stdlib/source/experiment/tool/interpreter.lux
index ad8092a5b..cea7bd833 100644
--- a/stdlib/source/experiment/tool/interpreter.lux
+++ b/stdlib/source/experiment/tool/interpreter.lux
@@ -128,7 +128,7 @@
(All (_ anchor expression declaration)
(-> Configuration Code <Interpretation>))
(function (_ state)
- (case (<| (phase.result' state)
+ (when (<| (phase.result' state)
(sharing [anchor expression declaration]
(is (State+ anchor expression declaration)
state)
@@ -213,7 +213,7 @@
(if (and (not multi_line?)
(text#= ..exit_command line))
(at Console<!> write ..farewell_message)
- (case (read_eval_print (revised #source (add_line line) context))
+ (when (read_eval_print (revised #source (add_line line) context))
{try.#Success [context' representation]}
(do !
[_ (at Console<!> write representation)]