diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-04-20 16:44:13 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-04-20 16:44:13 (GMT) |
| commit | 1bbd13e8395085f6afe23f0ac7d7cc91eae3cade (patch) | |
| tree | deba5d0dcb60194537aea304ca412bd52ef3c1b6 /generic/tclCmdIL.c | |
| parent | 66032e8a327e0498b0d8970307452f66c69be25c (diff) | |
| parent | 049650b5952e5e5ee1997772750450305dccc6d7 (diff) | |
| download | tcl-little.zip tcl-little.tar.gz tcl-little.tar.bz2 | |
Merge 8.6.5little
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index d08ac02..56456b4 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2391,7 +2391,10 @@ Tcl_LinsertObjCmd( Tcl_ListObjAppendElement(NULL, listPtr, objv[3]); } else { - Tcl_ListObjReplace(NULL, listPtr, index, 0, (objc-3), &(objv[3])); + if (TCL_OK != Tcl_ListObjReplace(interp, listPtr, index, 0, + (objc-3), &(objv[3]))) { + return TCL_ERROR; + } } /* @@ -2787,7 +2790,10 @@ Tcl_LreplaceObjCmd( * optimize this case away. */ - Tcl_ListObjReplace(NULL, listPtr, first, numToDelete, objc-4, objv+4); + if (TCL_OK != Tcl_ListObjReplace(interp, listPtr, first, numToDelete, + objc-4, objv+4)) { + return TCL_ERROR; + } /* * Set the interpreter's object result. |