group-xrefs ( xrefs -- xrefs' )


Vocabulary
fuel.xref.private

Inputs
xrefsan object


Outputs
xrefs'an object


Definition
USING: arrays assocs kernel sequences sorting ;

IN: fuel.xref.private

: group-xrefs ( xrefs -- xrefs' )
sort [ second ] collect-by
[ [ [ third ] map-find drop 2array ] keep ] assoc-map
>alist sort ;