tools.memory: fix heap-stats if optimizing compiler is disabled

2009-02-16 17:04:58 -06:00 · 2009-02-16 17:04:58 -06:00 · f634b9cf6b
parent 1a434416ac
commit f634b9cf6b
1 changed files with 2 additions and 2 deletions
--- 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 [