summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdIL.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-06-22 12:12:47 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-06-22 12:12:47 (GMT)
commit6fb25e0cf0404d19da3ae7a4a7a6bfe81d0d35c5 (patch)
treee2d01b3935ec618895c763e67c06a8416073a844 /generic/tclCmdIL.c
parent37fc04cb2ee528291f83f44ad5c460c538a46f08 (diff)
downloadtcl-6fb25e0cf0404d19da3ae7a4a7a6bfe81d0d35c5.zip
tcl-6fb25e0cf0404d19da3ae7a4a7a6bfe81d0d35c5.tar.gz
tcl-6fb25e0cf0404d19da3ae7a4a7a6bfe81d0d35c5.tar.bz2
* generic/tclCmdIL.c (Tcl_LsetObjCmd): [Bug 3019351]: Corrected wrong
args message.
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r--generic/tclCmdIL.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index fed7975..35a48d3 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdIL.c,v 1.137.2.8 2009/08/20 14:29:14 dkf Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.137.2.9 2010/06/22 12:12:48 dkf Exp $
*/
#include "tclInt.h"
@@ -3381,7 +3381,7 @@ Tcl_LsetObjCmd(
*/
if (objc < 3) {
- Tcl_WrongNumArgs(interp, 1, objv, "listVar index ?index...? value");
+ Tcl_WrongNumArgs(interp, 1, objv, "listVar ?index? ?index...? value");
return TCL_ERROR;
}