diff options
-rw-r--r-- | repl.mu | 2 |
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) |