Improved heap-stats

library/tools/memory.factor

@@ -80,25 +80,26 @@ M: object each-slot ( obj quot -- )
     #! something referencing that, and so on.
     [ dupd refers? ] instances nip ;
 
-: seq+ ( n index vector -- )
+: hash+ ( n key hash -- )
-    [ nth + ] 2keep set-nth ;
+    [ hash [ 0 ] unless* + ] 2keep set-hash ;
 
 : heap-stat-step ( counts sizes obj -- )
-    [ dup size swap type rot seq+ ] keep
+    [ dup size swap class rot hash+ ] keep
-    1 swap type rot seq+ ;
+    1 swap class rot hash+ ;
 
 : heap-stats ( -- counts sizes )
     #! Return a list of instance count/total size pairs.
-    num-types 0 <array> num-types 0 <array>
+    H{ } clone H{ } clone
     [ >r 2dup r> heap-stat-step ] each-object ;
 
-: heap-stat. ( { instances bytes type } -- )
+: heap-stat. ( instances bytes class -- )
-    dup first zero? [
+    pprint ": " write
-        dup third type>class pprint ": " write
+    pprint " bytes, " write
-        dup second pprint " bytes, " write
+    pprint " instances" print ;
-        dup first pprint " instances" print
-    ] unless drop ;
 
 : heap-stats. ( -- )
     #! Print heap allocation breakdown.
-    heap-stats dup length 3array flip [ heap-stat. ] each ;
+    heap-stats dup hash-keys natural-sort [
+        ( hash hash key -- )
+        [ [ pick hash ] keep pick hash ] keep heap-stat.
+    ] each 2nip ;