diff --git a/basis/compiler/tree/debugger/debugger-tests.factor b/basis/compiler/tree/debugger/debugger-tests.factor index eb0bbd5ce6..4d1c5c824d 100644 --- 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. \ No newline at end of file diff --git a/basis/compiler/tree/debugger/debugger.factor b/basis/compiler/tree/debugger/debugger.factor index 188dcdb935..430424291e 100644 --- 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