tools.destructors: use collect-by.

2016-12-28 16:21:08 -08:00 · 2016-12-28 16:21:08 -08:00 · ce9c9a8858
parent 4400c5051c
commit ce9c9a8858
1 changed files with 1 additions and 3 deletions
--- a/basis/tools/destructors/destructors.factor
+++ b/basis/tools/destructors/destructors.factor
@ -8,9 +8,7 @@ IN: tools.destructors
 <PRIVATE

 : class-tally ( set -- assoc' )
-    H{ } clone [
-        [ members ] dip '[ dup class-of _ push-at ] each
-    ] keep ;
+    members [ class-of ] collect-by ;

 : (disposables.) ( set -- )
    class-tally >alist [ first2 [ length ] keep 3array ] map [ second ] sort-with