diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-09 22:27:46 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-09 22:27:46 (GMT) |
| commit | 1009d232b4c47ae29d281c1454c7896a1b40e5a4 (patch) | |
| tree | 0d5ddf16e837d9098c3c55e4b715dc2b8d6d8e03 | |
| parent | dcb6a3ca97368dcad4e7901623480303f7ad9457 (diff) | |
| download | tcl-1009d232b4c47ae29d281c1454c7896a1b40e5a4.zip tcl-1009d232b4c47ae29d281c1454c7896a1b40e5a4.tar.gz tcl-1009d232b4c47ae29d281c1454c7896a1b40e5a4.tar.bz2 | |
Corrected case of trap pattern
| -rw-r--r-- | library/clock.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index 9f9bcae..2cf4ada 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: clock.tcl,v 1.59 2009/11/19 11:59:54 dkf Exp $ +# RCS: @(#) $Id: clock.tcl,v 1.60 2010/02/09 22:27:46 dkf Exp $ # #---------------------------------------------------------------------- @@ -724,7 +724,7 @@ proc ::tcl::clock::ParseClockFormatFormat {procName format locale} { try { return [ParseClockFormatFormat2 $format $locale $procName] - } trap clock {result opts} { + } trap CLOCK {result opts} { dict unset opts -errorinfo return -options $opts $result } finally { |