diff options
| author | gahr <gahr@gahr.ch> | 2016-06-10 12:10:41 (GMT) |
|---|---|---|
| committer | gahr <gahr@gahr.ch> | 2016-06-10 12:10:41 (GMT) |
| commit | 74cee16544d00f49288f1819fb71e1c5c74ce5ad (patch) | |
| tree | d77bcc9fb09de474104b1fc59dde7cc6c20b4031 /generic/tclCmdIL.c | |
| parent | 8377ed833a9566731442ef744b419425638d5040 (diff) | |
| parent | 03462e2c1dfc9da26f049ee17a3001df257442e4 (diff) | |
| download | tcl-74cee16544d00f49288f1819fb71e1c5c74ce5ad.zip tcl-74cee16544d00f49288f1819fb71e1c5c74ce5ad.tar.gz tcl-74cee16544d00f49288f1819fb71e1c5c74ce5ad.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 739dca9..0d35397 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2755,7 +2755,7 @@ Tcl_LreplaceObjCmd( * (to allow for replacing the last elem). */ - if ((first >= listLen) && (listLen > 0)) { + if ((first > listLen) && (listLen > 0)) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "list doesn't contain element %s", TclGetString(objv[2]))); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LREPLACE", "BADIDX", |