From 94e5802f594a73245fce0fbd885103b8bf210d57 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Fri, 2 Dec 2022 19:33:00 -0400 Subject: Added some simple time-series handling machinery. --- stdlib/source/experiment/tool/interpreter.lux | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'stdlib/source/experiment/tool/interpreter.lux') diff --git a/stdlib/source/experiment/tool/interpreter.lux b/stdlib/source/experiment/tool/interpreter.lux index 3a001396a..09a9e72cd 100644 --- a/stdlib/source/experiment/tool/interpreter.lux +++ b/stdlib/source/experiment/tool/interpreter.lux @@ -80,9 +80,9 @@ .#info .#mode] {.#Interpreter} state)) - [state _] (at (the platform.#file_system platform) + [state _] (of (the platform.#file_system platform) lift (phase.result' state enter_module)) - _ (at Console write ..welcome_message)] + _ (of Console write ..welcome_message)] (in state))) (with_expansions [ (these (Operation anchor expression declaration [Type Any]))] @@ -202,16 +202,16 @@ multi_line? false]) (do ! [_ (if multi_line? - (at Console write " ") - (at Console write "> ")) - line (at Console read_line)] + (of Console write " ") + (of Console write "> ")) + line (of Console read_line)] (if (and (not multi_line?) (text#= ..exit_command line)) - (at Console write ..farewell_message) + (of Console write ..farewell_message) (when (read_eval_print (revised #source (add_line line) context)) {try.#Success [context' representation]} (do ! - [_ (at Console write representation)] + [_ (of Console write representation)] (again context' false)) {try.#Failure error} -- cgit v1.2.3