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