diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-04 14:47:35 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-04 14:47:35 (GMT) |
commit | d5ef0adb9a1e1c0aeef77423003412e3e65c648d (patch) | |
tree | 48e0bde7b7e989983302676a05379172b483567a /library | |
parent | 65cf4531a3d2d7d40b37d1cc4cda45bf80678b27 (diff) | |
download | tcl-d5ef0adb9a1e1c0aeef77423003412e3e65c648d.zip tcl-d5ef0adb9a1e1c0aeef77423003412e3e65c648d.tar.gz tcl-d5ef0adb9a1e1c0aeef77423003412e3e65c648d.tar.bz2 |
Tweak error-message. Remove pre-7.5 Tcl code.
Diffstat (limited to 'library')
-rw-r--r-- | library/clock.tcl | 6 | ||||
-rw-r--r-- | library/init.tcl | 4 |
2 files changed, 3 insertions, 7 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index 9d41b80..ee84b83 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -1230,8 +1230,8 @@ proc ::tcl::clock::scan { args } { default { return -code error \ -errorcode [list CLOCK badOption $flag] \ - "bad option \"$flag\",\ - must be -base, -format, -gmt, -locale or -timezone" + "bad option \"$flag\":\ + must be -base, -format, -gmt, -locale, or -timezone" } } } @@ -4277,7 +4277,7 @@ proc ::tcl::clock::add { clockval args } { } default { throw [list CLOCK badOption $a] \ - "bad option \"$a\",\ + "bad option \"$a\":\ must be -gmt, -locale or -timezone" } } diff --git a/library/init.tcl b/library/init.tcl index cffe951..6ef0ac1 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -15,10 +15,6 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# This test intentionally written in pre-7.5 Tcl -if {[info commands package] == ""} { - error "version mismatch: library\nscripts expect Tcl version 7.5b1 or later but the loaded version is\nonly [info patchlevel]" -} package require -exact tcl 8.7a6 # Compute the auto path to use in this interpreter. |