path: root/testing/_057_caller_graphs.tcl

proc inFileB args {
    array set info [info frame 0]; puts -nonewline ->$info(proc)
    inFileA
}