Posted to tcl by kbk at Sun May 09 22:26:00 GMT 2010view raw

  1. % proc tcl::mathfunc::gloop {x} {return -code error {what happens?}}
  2. % catch {expr {gloop(1)}} result options
  3. 1
  4. % set options
  5. -code 1 -level 0 -errorstack {INNER {returnImm tcl::mathfunc::gloop 1}} -errorcode NONE -errorinfo {what happens?
  6. while executing
  7. "expr {gloop(1)}"} -errorline 1