diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-06-17 14:30:06 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-06-17 14:30:06 (GMT) |
| commit | d27ff0c78862fc1652325b8c27e0882aa772171f (patch) | |
| tree | 8f39f23145f82d7c131c79685ec6501399225d4d /library/clock.tcl | |
| parent | 946600db937b025964117d8aaa11a9e27f96e9aa (diff) | |
| download | tcl-d27ff0c78862fc1652325b8c27e0882aa772171f.zip tcl-d27ff0c78862fc1652325b8c27e0882aa772171f.tar.gz tcl-d27ff0c78862fc1652325b8c27e0882aa772171f.tar.bz2 | |
[f0f876c141] Improve consistency in error messages.
Diffstat (limited to 'library/clock.tcl')
| -rw-r--r-- | library/clock.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index 1e652b4..67d15b1 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -1227,8 +1227,8 @@ proc ::tcl::clock::scan { args } { } default { return -code error \ - -errorcode [list CLOCK badSwitch $flag] \ - "bad switch \"$flag\",\ + -errorcode [list CLOCK badOption $flag] \ + "bad option \"$flag\",\ must be -base, -format, -gmt, -locale or -timezone" } } @@ -4295,8 +4295,8 @@ proc ::tcl::clock::add { clockval args } { set timezone $b } default { - throw [list CLOCK badSwitch $a] \ - "bad switch \"$a\",\ + throw [list CLOCK badOption $a] \ + "bad option \"$a\",\ must be -gmt, -locale or -timezone" } } |