diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/interpreter.lux')
| -rw-r--r-- | stdlib/source/library/lux/tool/interpreter.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/library/lux/tool/interpreter.lux b/stdlib/source/library/lux/tool/interpreter.lux index 07405ea54..2da1b12f8 100644 --- a/stdlib/source/library/lux/tool/interpreter.lux +++ b/stdlib/source/library/lux/tool/interpreter.lux @@ -82,9 +82,9 @@ .#info .#mode] {.#Interpreter} state)) - [state _] (# (the platform.#file_system platform) - lift (phase.result' state enter_module)) - _ (# Console<!> write ..welcome_message)] + [state _] (at (the platform.#file_system platform) + lift (phase.result' state enter_module)) + _ (at Console<!> write ..welcome_message)] (in state))) (with_expansions [<Interpretation> (these (Operation anchor expression directive [Type Any]))] @@ -211,16 +211,16 @@ multi_line? #0]) (do ! [_ (if multi_line? - (# Console<!> write " ") - (# Console<!> write "> ")) - line (# Console<!> read_line)] + (at Console<!> write " ") + (at Console<!> write "> ")) + line (at Console<!> read_line)] (if (and (not multi_line?) (text#= ..exit_command line)) - (# Console<!> write ..farewell_message) + (at Console<!> write ..farewell_message) (case (read_eval_print (revised #source (add_line line) context)) {try.#Success [context' representation]} (do ! - [_ (# Console<!> write representation)] + [_ (at Console<!> write representation)] (again context' #0)) {try.#Failure error} |