steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.destructors: use collect-by.

char-rename
John Benediktsson 2016-12-28 16:21:08 -08:00
parent 4400c5051c
commit ce9c9a8858
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/tools/destructors/destructors.factor
View File

@ -8,9 +8,7 @@ IN: tools.destructors
<PRIVATE <PRIVATE
: class-tally ( set -- assoc' ) : class-tally ( set -- assoc' )
H{ } clone [ members [ class-of ] collect-by ;
[ members ] dip '[ dup class-of _ push-at ] each
] keep ;
: (disposables.) ( set -- ) : (disposables.) ( set -- )
class-tally >alist [ first2 [ length ] keep 3array ] map [ second ] sort-with class-tally >alist [ first2 [ length ] keep 3array ] map [ second ] sort-with