Posted to tcl by kbk at Sun May 09 22:31:15 GMT 2010view raw
- % 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