code-block-stats ( code-blocks -- counts sizes )

Vocabulary

tools.memory.private

Inputs

code-blocks

an object

Outputs

counts	an object
sizes	an object

Definition

USING: accessors assocs kernel sequences ;

IN: tools.memory.private

: code-block-stats ( code-blocks -- counts sizes )
    H{ } clone H{ } clone [
        '[
            [ size>> ] [ type>> ] bi
            [ nip _ inc-at ] [ _ at+ ] 2bi
        ] each
    ] 2keep ;