diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-02-15 23:08:23 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-02-15 23:08:23 -0800 |
| commit | 122b243160f6ff7942eebb040b30df3bdeebf123 (patch) | |
| tree | 914e630937ec49427ccc5cbda21ec92de1bedcf9 | |
| parent | bf2ee4a49922a9547f50503bc7d2adc37c6dbda5 (diff) | |
| download | mu-122b243160f6ff7942eebb040b30df3bdeebf123.tar.gz | |
752
| -rw-r--r-- | trace.mu | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/trace.mu b/trace.mu index 1b9ccc17..e13be5c4 100644 --- a/trace.mu +++ b/trace.mu @@ -357,12 +357,12 @@ { begin (toggle?:boolean <- equal c:character ((#\newline literal))) (break-unless toggle?:boolean) - (target-row:integer <- copy cursor-row:integer/space:1) - (tr:instruction-trace-address <- index traces:instruction-trace-address-array-address/deref cursor-row:integer/space:1) + (original-row:integer <- copy cursor-row:integer/space:1) + (tr:instruction-trace-address <- index traces:instruction-trace-address-array-address/deref cursor-row:integer/space:1) ; assumes cursor row is a valid index into traces, ie no expanded rows (print-instruction-trace screen:terminal-address tr:instruction-trace-address 0:space-address/screen-state) - (next-row:integer <- add target-row:integer 1:literal) + (next-row:integer <- add original-row:integer 1:literal) (print-traces-collapsed-from 0:space-address/screen-state screen:terminal-address traces:instruction-trace-address-array-address next-row:integer) - (back-to 0:space-address/screen-state screen:terminal-address target-row:integer) + (back-to 0:space-address/screen-state screen:terminal-address original-row:integer) (reply nil:literal) } (reply nil:literal) |