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 [
        [ [ [ nip ] ] dip [ inc-at ] curry compose ] dip
        [ at+ ] curry
        [ [ [ [ size>> ] [ type>> ] bi ] ] dip ] dip
        [ 2bi ] 2curry compose each
    ] 2keep ;