From ce9c9a8858dc33f1472ec6c71eeb2d9716632cb1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 28 Dec 2016 16:21:08 -0800
Subject: [PATCH] tools.destructors: use collect-by.

---
 basis/tools/destructors/destructors.factor | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/basis/tools/destructors/destructors.factor b/basis/tools/destructors/destructors.factor
index 7da604ddf3..36cecc35e8 100644
--- 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