Posted to tcl by kbk at Mon Jul 21 01:36:35 GMT 2008view raw
- 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"