diff options
author | gahr <gahr@gahr.ch> | 2016-04-04 11:25:12 (GMT) |
---|---|---|
committer | gahr <gahr@gahr.ch> | 2016-04-04 11:25:12 (GMT) |
commit | 540521771129cfb3a851405ae4306448fea3e769 (patch) | |
tree | 75feaeff0a9a36b53252789c8aebb45dbc0b2e49 /generic/tclInterp.c | |
parent | 4b301d844892c52ec5fecce47f03c91a551639ca (diff) | |
parent | b4d78562f6e023b1bf1accc8649c1a93b14be8d6 (diff) | |
download | tcl-540521771129cfb3a851405ae4306448fea3e769.zip tcl-540521771129cfb3a851405ae4306448fea3e769.tar.gz tcl-540521771129cfb3a851405ae4306448fea3e769.tar.bz2 |
merge trunktip_444
Diffstat (limited to 'generic/tclInterp.c')
-rw-r--r-- | generic/tclInterp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 5c94461..cd0dc18 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -723,7 +723,7 @@ NRInterpCmd( } endOfForLoop: - if ((i + 2) < objc) { + if (i < objc - 2) { Tcl_WrongNumArgs(interp, 2, objv, "?-unwind? ?--? ?path? ?result?"); return TCL_ERROR; |