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 | 7bde9467424438f3430f9d2ece72a604f856ff43 (patch) | |
| tree | 8f39f23145f82d7c131c79685ec6501399225d4d /library/clock.tcl | |
| parent | fce6982a3e3c906ae5b46d0c7b93919aadb4f01c (diff) | |
| download | tcl-7bde9467424438f3430f9d2ece72a604f856ff43.zip tcl-7bde9467424438f3430f9d2ece72a604f856ff43.tar.gz tcl-7bde9467424438f3430f9d2ece72a604f856ff43.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" } } |