Posted to tcl by de at Sat Apr 07 00:08:56 GMT 2018view raw

  1. proc mycmd {args} {
  2. puts "mycmd: $args"
  3. }
  4.  
  5. set cmd mycmd
  6.  
  7. namespace eval foo {
  8. $cmd bar bar
  9. }
  10.  
  11. # With 8.6.8:
  12. # mycmd: bar bar
  13. #
  14. # With 9.0 (error):
  15. # can't read "cmd": no such variable
  16.  
  17.