summaryrefslogtreecommitdiffstats
path: root/generic/tclCompCmdsGR.c
diff options
context:
space:
mode:
authoraspect <aspect+tclcore@abstracted-spleen.org>2015-02-19 02:42:13 (GMT)
committeraspect <aspect+tclcore@abstracted-spleen.org>2015-02-19 02:42:13 (GMT)
commit650782af59cef1d9524137ddc9ef3f373b3cda69 (patch)
tree0a15cfa1e8417cc5fa66669fa9cc1d9d5f6fab88 /generic/tclCompCmdsGR.c
parenta3fe56e967acaf42e8fb2180de39428b24fb3ed4 (diff)
downloadtcl-650782af59cef1d9524137ddc9ef3f373b3cda69.zip
tcl-650782af59cef1d9524137ddc9ef3f373b3cda69.tar.gz
tcl-650782af59cef1d9524137ddc9ef3f373b3cda69.tar.bz2
handle [lreplace l x y ...] where y<x
Diffstat (limited to 'generic/tclCompCmdsGR.c')
-rw-r--r--generic/tclCompCmdsGR.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c
index 5220576..e7f6473 100644
--- a/generic/tclCompCmdsGR.c
+++ b/generic/tclCompCmdsGR.c
@@ -1501,6 +1501,10 @@ TclCompileLreplaceCmd(
return TCL_ERROR;
}
+ if(idx2 != INDEX_END && idx2 < idx1) {
+ idx2 = idx1-1;
+ }
+
/*
* Work out what this [lreplace] is actually doing.
*/
@@ -1524,9 +1528,6 @@ TclCompileLreplaceCmd(
tmpObj = Tcl_NewIntObj(idx1);
Tcl_IncrRefCount(tmpObj);
}
- if(idx2 < idx1) {
- idx2 = idx1-1;
- }
goto dropRange;
}
}