about summary refs log tree commit diff stats
path: root/trace.arc.t
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-02-10 20:26:19 -0800
committerKartik K. Agaram <vc@akkartik.com>2015-02-10 20:26:19 -0800
commitb87f7bf5ecd588c6903ecd70a2e6b1a6c64f4f6f (patch)
tree72f8886df62dda92620844e0e5c2d7c4ab37912d /trace.arc.t
parenta2eac7cb56439ef37086b6febfad8c8a9fc9b856 (diff)
downloadmu-b87f7bf5ecd588c6903ecd70a2e6b1a6c64f4f6f.tar.gz
734
Diffstat (limited to 'trace.arc.t')
-rw-r--r--trace.arc.t3
1 files changed, 2 insertions, 1 deletions
diff --git a/trace.arc.t b/trace.arc.t
index d0324bd5..a2971b31 100644
--- a/trace.arc.t
+++ b/trace.arc.t
@@ -26,13 +26,14 @@ schedule:  done with routine")
       (len:integer <- length arr:instruction-trace-address-array-address/deref)
       ; fake screen
       (screen:terminal-address <- init-fake-terminal 70:literal 15:literal)
+      (screen-state:space-address <- screen-state)
       ; print trace collapsed
       (i:integer <- copy 0:literal)
       { begin
         (done?:boolean <- greater-or-equal i:integer len:integer)
         (break-if done?:boolean)
         (tr:instruction-trace-address <- index arr:instruction-trace-address-array-address/deref i:integer)
-        (print-instruction-trace-collapsed screen:terminal-address tr:instruction-trace-address)
+        (print-instruction-trace-collapsed screen:terminal-address tr:instruction-trace-address screen-state:space-address)
         (i:integer <- add i:integer 1:literal)
         (loop)
       }