Posted to tcl by kbk at Sun May 09 22:26:00 GMT 2010view raw
- % proc tcl::mathfunc::gloop {x} {return -code error {what happens?}}
- % catch {expr {gloop(1)}} result options
- 1
- % set options
- -code 1 -level 0 -errorstack {INNER {returnImm tcl::mathfunc::gloop 1}} -errorcode NONE -errorinfo {what happens?
- while executing
- "expr {gloop(1)}"} -errorline 1