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}