Posted to tcl by mistachkin at Sat Nov 17 15:12:58 GMT 2007view raw

  1. proc p1 {} {p2}
  2. proc p2 {} {p3a}
  3.  
  4. proc p3a {} {
  5. uplevel 1 p3b
  6.  
  7. uplevel #0 {
  8. uplevel #3 {puts stdout [info level [info level]]}
  9. }
  10. }
  11.  
  12. proc p3b {} {
  13. uplevel #0 {
  14. uplevel #3 {puts stdout [info level [info level]]}
  15. }
  16. }
  17.