Posted to tcl by mjanssen at Sat Nov 17 14:13:16 GMT 2007view raw

  1. test uplevel-7.1 {absolute levels deeper in the callstack} {
  2. set res {}
  3. proc 71 {} {72}
  4. proc 72 {} {73}
  5. proc 73 {} {uplevel 1 {uplevel #3 {return 1}}}
  6. lappend res [71]
  7. rename 73 {}
  8. rename 72 {}
  9. rename 71 {}
  10. set res
  11. } {1}