Posted to tcl by apn at Tue Sep 06 02:06:55 GMT 2016view raw
- 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"
- %