diff options
| -rw-r--r-- | color-repl.mu | 5 | ||||
| -rw-r--r-- | mu.arc | 1 |
2 files changed, 4 insertions, 2 deletions
diff --git a/color-repl.mu b/color-repl.mu index 3042c1cf..efa80344 100644 --- a/color-repl.mu +++ b/color-repl.mu @@ -305,15 +305,18 @@ (function main [ (default-space:space-address <- new space:literal 30:literal) (cursor-mode) + (print-primitive-to-host (("connected to anarki! type in an expression, then hit enter. ctrl-d exits. ctrl-g clears the current expression." literal))) + (print-character nil:literal/terminal ((#\newline literal))) { begin - (print-primitive-to-host (("anarki> " literal))) (s:string-address <- read-sexp) (break-unless s:string-address) (retro-mode) ; print errors cleanly (t:string-address <- $eval s:string-address) (cursor-mode) + (print-primitive-to-host (("=> " literal))) (print-string nil:literal/terminal t:string-address) (print-character nil:literal/terminal ((#\newline literal))) + (print-character nil:literal/terminal ((#\newline literal))) ; empty line separates each expression and result (loop) } ]) diff --git a/mu.arc b/mu.arc index 7e1c5f3e..5089a8db 100644 --- a/mu.arc +++ b/mu.arc @@ -830,7 +830,6 @@ (until (is caller top.routine*!fn-name) (pop-stack routine*) ; no incrementing pc; we want to retry the call - (-- pc.routine*) ; temporary hack, hardcoded for color-repl.mu ) ((abort-routine*))) |