diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-11-24 18:35:01 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-11-24 18:35:01 (GMT) |
| commit | be6ed41db2f292c42a40c9e4da6bbc21884a3b54 (patch) | |
| tree | 33bbc7a0a14fa05e6c2fb1da946c85c994520678 | |
| parent | da13f6ea8ce3f01699903c9125b1f90ad0ae2189 (diff) | |
| parent | 7f7ce5b4a67db42df570c86bcfbc45c4b9fa6d39 (diff) | |
| download | tcl-be6ed41db2f292c42a40c9e4da6bbc21884a3b54.zip tcl-be6ed41db2f292c42a40c9e4da6bbc21884a3b54.tar.gz tcl-be6ed41db2f292c42a40c9e4da6bbc21884a3b54.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]] |