diff options
| author | Eduardo Julian | 2022-08-11 04:15:07 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-08-11 04:15:07 -0400 |
| commit | 065e8a4d8122d4616b570496915d2c0e2c78cd6b (patch) | |
| tree | f2bbdc3e40b796b34026ab04c9a478d8a3f082d5 /stdlib/source/experiment | |
| parent | 68d78235694c633c956bb9e8a007cad7d65370bc (diff) | |
Re-named the "case" macro to "when".
Diffstat (limited to 'stdlib/source/experiment')
| -rw-r--r-- | stdlib/source/experiment/tool/interpreter.lux | 4 |
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)] |