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