diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-11-24 18:34:16 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-11-24 18:34:16 (GMT) |
| commit | 01b92615b5fb4025779590ceff95fe4e562d0d81 (patch) | |
| tree | 2364e090ac953b831baf01d34a24575afc620e74 /library | |
| parent | cec233a8882dbc9c5eab369b88cef6bc32675e07 (diff) | |
| download | tcl-01b92615b5fb4025779590ceff95fe4e562d0d81.zip tcl-01b92615b5fb4025779590ceff95fe4e562d0d81.tar.gz tcl-01b92615b5fb4025779590ceff95fe4e562d0d81.tar.bz2 | |
[a122627849] Improve stack trace from parray on not-array.
Diffstat (limited to 'library')
| -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]] |