Posted to tcl by colin at Fri Aug 10 01:49:29 GMT 2012view raw

  1. variable dir "MOOP"
  2.  
  3. proc ss {dir} {
  4. source sourced.tcl
  5. }
  6. source sourced.tcl
  7. ss MOOP1
  8. puts stderr $dir
  9. ::apply {dir {
  10. source sourced.tcl
  11. }} MOOP2
  12. puts stderr $dir