Fix bitrot in compiler.tree.debugger

2009-03-25 10:11:58 -05:00 · 2009-03-25 10:11:58 -05:00 · 9b8dd01c0b
parent 7741d2ca23
commit 9b8dd01c0b
2 changed files with 5 additions and 2 deletions
--- a/basis/compiler/tree/debugger/debugger-tests.factor
+++ b/basis/compiler/tree/debugger/debugger-tests.factor
@ -1,5 +1,8 @@
 IN: compiler.tree.debugger.tests
-USING: compiler.tree.debugger tools.test ;
+USING: compiler.tree.debugger tools.test sorting sequences io ;

 \ optimized. must-infer
 \ optimizer-report. must-infer
+
+[ [ <=> ] sort ] optimized.
+[ <reversed> [ print ] each ] optimizer-report.
--- a/basis/compiler/tree/debugger/debugger.factor
+++ b/basis/compiler/tree/debugger/debugger.factor
@ -160,7 +160,7 @@ SYMBOL: node-count
                    { [ dup generic? ] [ generics-called ] }
                    { [ dup method-body? ] [ methods-called ] }
                    [ words-called ]
-                } cond inc-at
+                } cond get inc-at
            ] [ drop ] if
        ] each-node
        node-count set