637 - show repl errors properly

We'll never be able to avoid dying on syntax errors.
But hopefully we can make sessions easy to restore.

1 files changed, 2 insertions, 0 deletions

diff --git a/repl.mu b/repl.mu
index efc17dd2..90bfa8ac 100644
--- a/repl.mu
+++ b/repl.mu
@@ -95,7 +95,9 @@
   { begin
     (print-primitive-to-host (("anarki> " literal)))
     (s:string-address <- read-sexp buffered-stdin:channel-address)
+    (retro-mode)  ; print errors cleanly
     (t:string-address <- $eval s:string-address)
+    (cursor-mode)
     (print-string nil:literal/terminal t:string-address)
     (print-character nil:literal/terminal ((#\newline literal)))
     (loop)