diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/tool/interpreter.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/lux/tool/interpreter.lux b/stdlib/source/lux/tool/interpreter.lux index a8c2fe0b6..e18a27c47 100644 --- a/stdlib/source/lux/tool/interpreter.lux +++ b/stdlib/source/lux/tool/interpreter.lux @@ -77,9 +77,9 @@ #.info #.mode] #.Interpreter state)) - [state _] (:: (get@ #platform.file-system platform) - lift (phase.run' state enter-module)) - _ (:: Console<!> write ..welcome-message)] + [state _] (\ (get@ #platform.file-system platform) + lift (phase.run' state enter-module)) + _ (\ Console<!> write ..welcome-message)] (wrap state))) (with-expansions [<Interpretation> (as-is (Operation anchor expression directive [Type Any]))] @@ -201,16 +201,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) + (\ Console<!> write ..farewell-message) (case (read-eval-print (update@ #source (add-line line) context)) (#try.Success [context' representation]) (do ! - [_ (:: Console<!> write representation)] + [_ (\ Console<!> write representation)] (recur context' #0)) (#try.Failure error) |