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

Fix bitrot in compiler.tree.debugger

db4
Slava Pestov 2009-03-25 10:11:58 -05:00
parent 7741d2ca23
commit 9b8dd01c0b
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/compiler/tree/debugger/debugger-tests.factor
View File

@ -1,5 +1,8 @@
IN: compiler.tree.debugger.tests IN: compiler.tree.debugger.tests
USING: compiler.tree.debugger tools.test ; USING: compiler.tree.debugger tools.test sorting sequences io ;
\ optimized. must-infer \ optimized. must-infer
\ optimizer-report. must-infer \ optimizer-report. must-infer
[ [ <=> ] sort ] optimized.
[ <reversed> [ print ] each ] optimizer-report.

2
basis/compiler/tree/debugger/debugger.factor
View File

@ -160,7 +160,7 @@ SYMBOL: node-count
{ [ dup generic? ] [ generics-called ] } { [ dup generic? ] [ generics-called ] }
{ [ dup method-body? ] [ methods-called ] } { [ dup method-body? ] [ methods-called ] }
[ words-called ] [ words-called ]
} cond inc-at } cond get inc-at
] [ drop ] if ] [ drop ] if
] each-node ] each-node
node-count set node-count set