heap-stat-step ( obj counts sizes -- )

Vocabulary

tools.memory.private

Inputs

obj	an object
counts	an object
sizes	an object

Outputs

None

Definition

USING: assocs classes kernel memory ;

IN: tools.memory.private

: heap-stat-step ( obj counts sizes -- )
    [ [ class-of ] dip inc-at ]
    [ [ [ size ] [ class-of ] bi ] dip at+ ] bi-curry* bi ;