tools.memory: fix heap-stats if optimizing compiler is disabled
parent
1a434416ac
commit
f634b9cf6b
|
@ -70,8 +70,8 @@ PRIVATE>
|
||||||
] tabular-output ;
|
] tabular-output ;
|
||||||
|
|
||||||
: heap-stats ( -- counts sizes )
|
: heap-stats ( -- counts sizes )
|
||||||
H{ } clone H{ } clone
|
[ ] instances H{ } clone H{ } clone
|
||||||
2dup '[ _ _ heap-stat-step ] each-object ;
|
[ '[ _ _ heap-stat-step ] each ] 2keep ;
|
||||||
|
|
||||||
: heap-stats. ( -- )
|
: heap-stats. ( -- )
|
||||||
heap-stats dup keys natural-sort standard-table-style [
|
heap-stats dup keys natural-sort standard-table-style [
|
||||||
|
|
Loading…
Reference in New Issue