Posted to tcl by miguel at Sat Jan 04 21:59:03 GMT 2014view pretty

Is this a typo somewhere, or intended?

mig@T510:~/DEVEL/tcl-core/trunk/unix$ ./tclsh
% proc a {} {array set x $::q}
% set q {1 2 3}
1 2 3
% catch a msg opt
1
% set msg
list must have an even number of elements
% set opt
-errorCode {TCL ARGUMENT FORMAT} -code 1 -level 0 -errorstack {INNER {returnImm {list must have an even number of elements} {-errorCode {TCL ARGUMENT FORMAT}}} CALL a} -errorcode NONE -errorinfo {list must have an even number of elements
    while executing
"array set x $::q"
    (procedure "a" line 1)
    invoked from within
"a"} -errorline 1