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

  1. Is this a typo somewhere, or intended?
  2.  
  3. mig@T510:~/DEVEL/tcl-core/trunk/unix$ ./tclsh
  4. % proc a {} {array set x $::q}
  5. % set q {1 2 3}
  6. 1 2 3
  7. % catch a msg opt
  8. 1
  9. % set msg
  10. list must have an even number of elements
  11. % set opt
  12. -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
  13. while executing
  14. "array set x $::q"
  15. (procedure "a" line 1)
  16. invoked from within
  17. "a"} -errorline 1
  18.