diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-05 12:36:45 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-05 12:36:45 (GMT) |
commit | d0ba759e2c3d30a156169fbd4436234afe87ce95 (patch) | |
tree | 74cd10d7e32eb78fba20e24edb7b88c2d7b2a602 /generic/tclListObj.c | |
parent | 5940356ced08a62f3dedc17888f34345dd09af61 (diff) | |
parent | 3f84674ae33a212e0f4055eadb936a2eb5b35476 (diff) | |
download | tcl-d0ba759e2c3d30a156169fbd4436234afe87ce95.zip tcl-d0ba759e2c3d30a156169fbd4436234afe87ce95.tar.gz tcl-d0ba759e2c3d30a156169fbd4436234afe87ce95.tar.bz2 |
Merge trunk
Diffstat (limited to 'generic/tclListObj.c')
-rw-r--r-- | generic/tclListObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 31fb986..e9d46d9 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -1366,7 +1366,7 @@ TclListObjCopy( if (!TclHasInternalRep(listObj, &tclListType.objType)) { if (TclHasInternalRep(listObj,&tclArithSeriesType.objType)) { - return TclArithSeriesObjCopy(interp, listObj); + return Tcl_DuplicateObj(listObj); } if (SetListFromAny(interp, listObj) != TCL_OK) { return NULL; |