From f634b9cf6ba43ca77f67adb24015e53e5ea230de Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 16 Feb 2009 17:04:58 -0600
Subject: [PATCH] tools.memory: fix heap-stats if optimizing compiler is
 disabled

---
 basis/tools/memory/memory.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/tools/memory/memory.factor b/basis/tools/memory/memory.factor
index fa97e2d893..9b727b48de 100644
--- a/basis/tools/memory/memory.factor
+++ b/basis/tools/memory/memory.factor
@@ -70,8 +70,8 @@ PRIVATE>
     ] tabular-output ;
 
 : heap-stats ( -- counts sizes )
-    H{ } clone H{ } clone
-    2dup '[ _ _ heap-stat-step ] each-object ;
+    [ ] instances H{ } clone H{ } clone
+    [ '[ _ _ heap-stat-step ] each ] 2keep ;
 
 : heap-stats. ( -- )
     heap-stats dup keys natural-sort standard-table-style [