heap-node>label ( image heap-node -- label )

Vocabulary

tools.image-analyzer.graphviz

Inputs

image	an object
heap-node	an object

Outputs

label

an object

Definition

USING: accessors kernel tools.image-analyzer.vm ;

IN: tools.image-analyzer.graphviz

: heap-node>label ( image heap-node -- label )
    dup object>> string?
    [ nip payload>> array>string ] [ relativise-address ] if ;