Posted to tcl by aspect at Thu May 25 05:03:08 GMT 2017view raw

  1. proc foo {x} {
  2. return -code error {Can't read "x": no such variable}
  3. }
  4.  
  5. set x 5
  6. foo $x
  7.  
  8.