diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2013-11-24 18:34:16 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2013-11-24 18:34:16 (GMT) |
| commit | 79b312813e043dd881f05d6401cbe9b6411cb100 (patch) | |
| tree | 2364e090ac953b831baf01d34a24575afc620e74 | |
| parent | 098b5fd499bdc950b441a5d152fb6f402cbf5109 (diff) | |
| download | tcl-79b312813e043dd881f05d6401cbe9b6411cb100.zip tcl-79b312813e043dd881f05d6401cbe9b6411cb100.tar.gz tcl-79b312813e043dd881f05d6401cbe9b6411cb100.tar.bz2 | |
[a122627849] Improve stack trace from parray on not-array.
| -rw-r--r-- | library/parray.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/parray.tcl b/library/parray.tcl index 3ce9817..a9c2cb1 100644 --- a/library/parray.tcl +++ b/library/parray.tcl @@ -11,7 +11,7 @@ proc parray {a {pattern *}} { upvar 1 $a array if {![array exists array]} { - error "\"$a\" isn't an array" + return -code error "\"$a\" isn't an array" } set maxl 0 set names [lsort [array names array $pattern]] |