Posted to tcl by kbk at Sun May 09 22:31:15 GMT 2010view pretty
% proc tcl::mathfunc::lookup {x} {dict get {1 0 2 1 3 2} $x} % catch {expr lookup(0)} result options 1 % set options -code 1 -level 0 -errorstack {INNER dictGet CALL {tcl::mathfunc::lookup 0}} -errorcode NONE -errorinfo {key "0" not known in dictionary while executing "dict get {1 0 2 1 3 2} $x" (procedure "tcl::mathfunc::lookup" line 1) invoked from within "expr lookup(0)"} -errorline 1