Posted to tcl by colin at Fri Aug 10 01:49:29 GMT 2012view pretty
variable dir "MOOP" proc ss {dir} { source sourced.tcl } source sourced.tcl ss MOOP1 puts stderr $dir ::apply {dir { source sourced.tcl }} MOOP2 puts stderr $dir
variable dir "MOOP" proc ss {dir} { source sourced.tcl } source sourced.tcl ss MOOP1 puts stderr $dir ::apply {dir { source sourced.tcl }} MOOP2 puts stderr $dir