aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/experiment
diff options
context:
space:
mode:
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)]