diff options
| -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) |