(disposables.) ( set -- )

Vocabulary

tools.destructors.private

Inputs

set

an object

Outputs

None

Definition

USING: arrays assocs combinators.smart io io.styles kernel
prettyprint sequences sorting ;

IN: tools.destructors.private

: (disposables.) ( set -- )
    class-tally >alist [ first2 [ length ] keep 3array ] map
    [ second ] sort-by standard-table-style [
        [
            [ "Disposable class" write ] with-cell
            [ "Instances" write ] with-cell [ ] with-cell
        ] with-row [
            [
                [
                    [ pprint-cell ] [ pprint-cell ]
                    [ ~quotation~ with-cell ] tri*
                ] input<sequence
            ] with-row
        ] each
    ] tabular-output nl ;