Posted to tcl by kbk at Sun May 09 22:26:00 GMT 2010view pretty
% 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