diff options
| author | aspect+tclcore@abstracted-spleen.org <aspect> | 2015-02-19 06:29:18 (GMT) |
|---|---|---|
| committer | aspect+tclcore@abstracted-spleen.org <aspect> | 2015-02-19 06:29:18 (GMT) |
| commit | e34c386997381d1899bc77a4d6a1ae1ac24a9564 (patch) | |
| tree | 9cb4de7478016fb71cad253e51fe5ac11d28d3b6 /generic/tclCompCmdsGR.c | |
| parent | d7c1184a4d5155afc5886af8cf2a4f2146b8640b (diff) | |
| download | tcl-e34c386997381d1899bc77a4d6a1ae1ac24a9564.zip tcl-e34c386997381d1899bc77a4d6a1ae1ac24a9564.tar.gz tcl-e34c386997381d1899bc77a4d6a1ae1ac24a9564.tar.bz2 | |
undo erroneous change in [1fa2e32e07]
Diffstat (limited to 'generic/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 2 |
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; |