diff options
| author | nijtmans <nijtmans> | 2009-11-18 21:23:20 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2009-11-18 21:23:20 (GMT) |
| commit | e6dccec5e8b484c3460cb03dcf37b9f9857c226e (patch) | |
| tree | 4d8bf7878ee2bf754c56b86cc47d868c3400ac5b /library/history.tcl | |
| parent | 74a142c6fae087d1da40a7305ca4c82f2597d165 (diff) | |
| download | tcl-e6dccec5e8b484c3460cb03dcf37b9f9857c226e.zip tcl-e6dccec5e8b484c3460cb03dcf37b9f9857c226e.tar.gz tcl-e6dccec5e8b484c3460cb03dcf37b9f9857c226e.tar.bz2 | |
Eliminate "then" keyword
Diffstat (limited to 'library/history.tcl')
| -rw-r--r-- | library/history.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/history.tcl b/library/history.tcl index 077d604..4d21143 100644 --- a/library/history.tcl +++ b/library/history.tcl @@ -2,7 +2,7 @@ # # Implementation of the history command. # -# RCS: @(#) $Id: history.tcl,v 1.8 2009/07/25 21:51:02 dkf Exp $ +# RCS: @(#) $Id: history.tcl,v 1.9 2009/11/18 21:23:20 nijtmans Exp $ # # Copyright (c) 1997 Sun Microsystems, Inc. # @@ -78,7 +78,7 @@ proc ::tcl::HistAdd {event {exec {}}} { if { [prefix longest {exec {}} $exec] eq "" && [llength [info level 0]] == 3 - } then { + } { return -code error "bad argument \"$exec\": should be \"exec\"" } |