Posted to tcl by aspect at Thu May 25 05:03:08 GMT 2017view pretty
proc foo {x} {
return -code error {Can't read "x": no such variable}
}
set x 5
foo $x
proc foo {x} {
return -code error {Can't read "x": no such variable}
}
set x 5
foo $x