Posted to tcl by mjanssen at Sat Nov 17 14:13:16 GMT 2007view raw
- 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}