Blame testing/_057_caller_graphs.tcl

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