write-flamegraph-node ( word node depth -- )

Vocabulary

flamegraph.private

Inputs

word	an object
node	an object
depth	an object

Outputs

None

Definition

USING: accessors assocs io kernel math math.parser prettyprint
sequences ;

IN: flamegraph.private

:: write-flamegraph-node ( word node depth -- )
    depth word unparse-short suffix [
        ";" join write bl node total-time>> 1000 *
        >integer number>string print
    ] [
        node children>> swap [ write-flamegraph-node ] curry
        assoc-each
    ] bi ;