Posted to tcl by apn at Tue Sep 06 02:06:55 GMT 2016view pretty
proc p1 {} {p2} proc p2 {} {tailcall p3} proc p3 {} {p4} proc p4 {} {error p4} % p1 p4 % set errorInfo p4 while executing "error p4" (procedure "p4" line 1) invoked from within "p4" (procedure "p3" line 1) invoked from within "p3" invoked from within "p2" (procedure "p1" line 1) invoked from within "p1" ("uplevel" body line 1) invoked from within "uplevel #0 p1" %