diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-22 10:13:42 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-22 10:13:42 (GMT) |
| commit | b9722ec35665151ee849b8823f0502b4d5c29b4a (patch) | |
| tree | 5a5a9cb0cfd0f016b3eaf6b07d611d305b23c876 /generic/tclExecute.c | |
| parent | f1e62884ba8effddf2824d816abf7e271de6d6f8 (diff) | |
| parent | f3f254e8bab8854467fda3c5a2c48a640fb7687c (diff) | |
| download | tcl-b9722ec35665151ee849b8823f0502b4d5c29b4a.zip tcl-b9722ec35665151ee849b8823f0502b4d5c29b4a.tar.gz tcl-b9722ec35665151ee849b8823f0502b4d5c29b4a.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index ea0b145..e9494d9 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4697,7 +4697,7 @@ TEBCresume( if ((TclListObjGetElementsM(interp, valuePtr, &objc, &objv) == TCL_OK) && ( !TclHasInternalRep(value2Ptr, &tclListType.objType) - || + || ((Tcl_ListObjLength(interp,value2Ptr,&value2Length), value2Length == 1 ? (indexListPtr = TclListObjGetElement(value2Ptr, 0), 1) |