akkartik/mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

736

Browse Source
This commit is contained in:
Kartik K. Agaram 2015-02-10 21:37:49 -08:00
parent e61ddb80fe
commit 070823c2f6
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
trace.mu
View File

@ -284,8 +284,8 @@ run: main 2: 4 => ((3 integer))
mem: ((3 integer)): 3 <= 4
schedule: done with routine")
(s:stream-address <- init-stream x:string-address)
(arr:instruction-trace-address-array-address <- parse-traces s:stream-address)
(len:integer <- length arr:instruction-trace-address-array-address/deref)
(traces:instruction-trace-address-array-address <- parse-traces s:stream-address)
(len:integer <- length traces:instruction-trace-address-array-address/deref)
;? ($print (("#traces: " literal))) ;? 1
;? ($print len:integer) ;? 1
;? ($print (("\n" literal))) ;? 1
@ -295,7 +295,7 @@ schedule: done with routine")
{ 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)
(tr:instruction-trace-address <- index traces:instruction-trace-address-array-address/deref i:integer)
(print-instruction-trace-collapsed nil:literal/terminal tr:instruction-trace-address 0:space-address/screen-state)
(i:integer <- add i:integer 1:literal)
(loop)
@ -330,7 +330,7 @@ schedule: done with routine")
{ begin
(toggle?:boolean <- equal c:character ((#\newline literal)))
(break-unless toggle?:boolean)
(tr:instruction-trace-address <- index arr:instruction-trace-address-array-address/deref cursor-row:integer/space:1)
(tr:instruction-trace-address <- index traces:instruction-trace-address-array-address/deref cursor-row:integer/space:1)
(print-instruction-trace nil:literal/terminal tr:instruction-trace-address 0:space-address/screen-state)
(jump next-key:offset) ; loop
}