diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-02-15 21:34:02 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-02-15 21:34:02 -0800 |
commit | ff1b342442c0c448e3a102219e6a746e79fb26d3 (patch) | |
tree | 000ba3c6bf322f4ff7b61f5d629527f8288419f4 /trace.mu | |
parent | e6bc2aa77130cbf44a349f2f1a0c1c1eb33f2def (diff) | |
download | mu-ff1b342442c0c448e3a102219e6a746e79fb26d3.tar.gz |
748
Diffstat (limited to 'trace.mu')
-rw-r--r-- | trace.mu | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/trace.mu b/trace.mu index 3444d053..60bff37e 100644 --- a/trace.mu +++ b/trace.mu @@ -111,6 +111,7 @@ (screen:terminal-address <- next-input) (x:trace-address <- next-input) (l:string-address <- get x:trace-address/deref label:offset) + (clear-line screen:terminal-address) (print-string screen:terminal-address l:string-address) (print-character screen:terminal-address ((#\space literal))) (print-character screen:terminal-address ((#\: literal))) @@ -124,6 +125,7 @@ (screen:terminal-address <- next-input) (x:instruction-trace-address <- next-input) (screen-state:space-address <- next-input) + (clear-line screen:terminal-address) (print-character screen:terminal-address ((#\- literal))) (print-character screen:terminal-address ((#\space literal))) ; print call stack |