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