Posted to tcl by mjanssen at Sat Nov 17 14:13:16 GMT 2007view pretty
test uplevel-7.1 {absolute levels deeper in the callstack} { set res {} proc 71 {} {72} proc 72 {} {73} proc 73 {} {uplevel 1 {uplevel #3 {return 1}}} lappend res [71] rename 73 {} rename 72 {} rename 71 {} set res } {1}