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

optimizer.debugger now shows which nodes are loops

db4
Slava Pestov 2008-02-14 20:28:16 -06:00
parent 9a459d3c12
commit 1c63a443a3
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/optimizer/debugger/debugger.factor
View File

@ -82,7 +82,10 @@ M: #call node>quot #call>quot ;
M: #call-label node>quot #call>quot ;
M: #label node>quot
[ "#label: " over node-param word-name append comment, ] 2keep
[
dup #label-loop? "#loop: " "#label: " ?
over node-param word-name append comment,
] 2keep
node-child swap dataflow>quot , \ call , ;
M: #if node>quot