steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.trace: Rename

db4
Doug Coleman 2013-03-24 10:04:44 -07:00
parent 45e33f5c09
commit 11c4c4634a
1 changed files with 3 additions and 3 deletions
basis/tools/trace

6
basis/tools/trace/trace.factor
View File

@ -43,9 +43,9 @@ SYMBOL: end
] ]
} 1&& ; } 1&& ;
TUPLE: trace-step word inputs ; TUPLE: trace-step-state word inputs ;
M: trace-step summary M: trace-step-state summary
[ [
[ "Word: " % word>> name>> % ] [ "Word: " % word>> name>> % ]
[ " -- inputs: " % inputs>> unparse-short % ] bi [ " -- inputs: " % inputs>> unparse-short % ] bi
@ -53,7 +53,7 @@ M: trace-step summary
: <trace-step> ( continuation word -- trace-step ) : <trace-step> ( continuation word -- trace-step )
[ nip ] [ [ data>> ] [ stack-effect in>> length ] bi* short tail* ] 2bi [ nip ] [ [ data>> ] [ stack-effect in>> length ] bi* short tail* ] 2bi
\ trace-step boa ; \ trace-step-state boa ;
: print-step ( continuation -- ) : print-step ( continuation -- )
dup continuation-current dup word? [ dup continuation-current dup word? [