diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/interpreter.lux')
| -rw-r--r-- | stdlib/source/library/lux/tool/interpreter.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/library/lux/tool/interpreter.lux b/stdlib/source/library/lux/tool/interpreter.lux index 323aa7ff4..a318dedfc 100644 --- a/stdlib/source/library/lux/tool/interpreter.lux +++ b/stdlib/source/library/lux/tool/interpreter.lux @@ -6,7 +6,7 @@ ["[0]" try {"+" [Try]}] ["ex" exception {"+" [exception:]}]] [data - ["[0]" text ("[1]\[0]" equivalence) + ["[0]" text ("[1]#[0]" equivalence) ["%" format {"+" [format]}]]] [type {"+" [:sharing]} ["[0]" check]] @@ -82,9 +82,9 @@ .#info .#mode] {.#Interpreter} state)) - [state _] (\ (value@ platform.#file_system platform) + [state _] (# (value@ platform.#file_system platform) lift (phase.result' state enter_module)) - _ (\ Console<!> write ..welcome_message)] + _ (# Console<!> write ..welcome_message)] (in state))) (with_expansions [<Interpretation> (as_is (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)] + (# Console<!> write " ") + (# Console<!> write "> ")) + line (# Console<!> read_line)] (if (and (not multi_line?) - (text\= ..exit_command line)) - (\ Console<!> write ..farewell_message) + (text#= ..exit_command line)) + (# Console<!> write ..farewell_message) (case (read_eval_print (revised@ #source (add_line line) context)) {try.#Success [context' representation]} (do ! - [_ (\ Console<!> write representation)] + [_ (# Console<!> write representation)] (recur context' #0)) {try.#Failure error} |