summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authoraspect <aspect+tclcore@abstracted-spleen.org>2015-02-19 06:29:18 (GMT)
committeraspect <aspect+tclcore@abstracted-spleen.org>2015-02-19 06:29:18 (GMT)
commitaaf545353c995502c38a2a33da5af74eeaa66b7a (patch)
tree9cb4de7478016fb71cad253e51fe5ac11d28d3b6
parent650782af59cef1d9524137ddc9ef3f373b3cda69 (diff)
downloadtcl-aaf545353c995502c38a2a33da5af74eeaa66b7a.zip
tcl-aaf545353c995502c38a2a33da5af74eeaa66b7a.tar.gz
tcl-aaf545353c995502c38a2a33da5af74eeaa66b7a.tar.bz2
undo erroneous change in [1fa2e32e07]aspect_lreplace_fix
-rw-r--r--generic/tclCompCmdsGR.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c
index e7f6473..b77c43c 100644
--- a/generic/tclCompCmdsGR.c
+++ b/generic/tclCompCmdsGR.c
@@ -1551,7 +1551,7 @@ TclCompileLreplaceCmd(
idx1 = 0;
goto replaceTail;
} else {
- if (idx1 >= 0 && idx2 > 0 && idx2 < idx1) {
+ if (idx1 > 0 && idx2 > 0 && idx2 < idx1) {
idx2 = idx1 - 1;
} else if (idx1 < 0 && idx2 < 0 && idx2 < idx1) {
idx2 = idx1 - 1;