From 9b8dd01c0ba14ceba939042365eea09822aeecfe Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@63-251-251-240.bobbroadband.com>
Date: Wed, 25 Mar 2009 10:11:58 -0500
Subject: [PATCH] Fix bitrot in compiler.tree.debugger

---
 basis/compiler/tree/debugger/debugger-tests.factor | 5 ++++-
 basis/compiler/tree/debugger/debugger.factor       | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

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