diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-06-22 12:12:47 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-06-22 12:12:47 (GMT) |
| commit | a35c44837e371dd481d28c540dce4668e1f2e609 (patch) | |
| tree | e2d01b3935ec618895c763e67c06a8416073a844 /generic | |
| parent | 3b15548a4ac0aa8655d74ed636f4221b38b14c37 (diff) | |
| download | tcl-a35c44837e371dd481d28c540dce4668e1f2e609.zip tcl-a35c44837e371dd481d28c540dce4668e1f2e609.tar.gz tcl-a35c44837e371dd481d28c540dce4668e1f2e609.tar.bz2 | |
* generic/tclCmdIL.c (Tcl_LsetObjCmd): [Bug 3019351]: Corrected wrong
args message.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCmdIL.c | 4 |
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; } |