Posted to tcl by apn at Tue Sep 06 02:06:55 GMT 2016view raw

  1. proc p1 {} {p2}
  2. proc p2 {} {tailcall p3}
  3. proc p3 {} {p4}
  4. proc p4 {} {error p4}
  5.  
  6. % p1
  7. p4
  8. % set errorInfo
  9. p4
  10. while executing
  11. "error p4"
  12. (procedure "p4" line 1)
  13. invoked from within
  14. "p4"
  15. (procedure "p3" line 1)
  16. invoked from within
  17. "p3"
  18. invoked from within
  19. "p2"
  20. (procedure "p1" line 1)
  21. invoked from within
  22. "p1"
  23. ("uplevel" body line 1)
  24. invoked from within
  25. "uplevel #0 p1"
  26. %