class-tally ( set -- assoc' )

Vocabulary

tools.destructors.private

Inputs

set

an object

Outputs

assoc'

an object

Definition

USING: assocs classes sets ;

IN: tools.destructors.private

: class-tally ( set -- assoc' )
    members [ class-of ] collect-by ;