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"
%