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