5 lines
99 B
Tcl
5 lines
99 B
Tcl
proc inFileB args {
|
|
array set info [info frame 0]; puts -nonewline ->$info(proc)
|
|
inFileA
|
|
}
|