Posted to tcl by kbk at Mon Jul 21 01:36:35 GMT 2008view pretty

namespace path ::tcl::unsupported
proc a {} {
    tailcall b
}
proc b {} {
    tailcall c
}
proc c {} {
    error "this is an error"
}
catch {a} result
puts $::errorInfo

---

result is:

this is an error
    while executing
"error "this is an error""
    (procedure "c" line 2)
    invoked from within
"a"