diff options
author | griffin <briang42@easystreet.net> | 2023-07-12 03:06:54 (GMT) |
---|---|---|
committer | griffin <briang42@easystreet.net> | 2023-07-12 03:06:54 (GMT) |
commit | 62f180300bf74ab95b1cb7957c5ff85a66e24f6a (patch) | |
tree | a913bdd606f6c6f58fbeabee4de4d7c91fd87554 /generic/tclListObj.c | |
parent | 6c4636e94b19b9b0d5972e4e76048e3a94351f82 (diff) | |
download | tcl-62f180300bf74ab95b1cb7957c5ff85a66e24f6a.zip tcl-62f180300bf74ab95b1cb7957c5ff85a66e24f6a.tar.gz tcl-62f180300bf74ab95b1cb7957c5ff85a66e24f6a.tar.bz2 |
Fix foreach bug [a34733451b].
Other code cleanup discovered by code review.
Diffstat (limited to 'generic/tclListObj.c')
-rw-r--r-- | generic/tclListObj.c | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 4b8530c..7b7b9e9 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -156,14 +156,7 @@ const Tcl_ObjType tclListType = { DupListInternalRep, /* dupIntRepProc */ UpdateStringOfList, /* updateStringProc */ SetListFromAny, /* setFromAnyProc */ - TCL_OBJTYPE_V2( - ListLength, - NULL, - NULL, - NULL, - NULL, - NULL, - NULL) + TCL_OBJTYPE_V1(ListLength) }; /* Macros to manipulate the List internal rep */ @@ -1626,9 +1619,8 @@ Tcl_ListObjGetElements( { ListRep listRep; - if (TclObjTypeHasProc(objPtr, getElementsProc) && - TclObjTypeGetElements(interp, objPtr, objcPtr, objvPtr) == TCL_OK) { - return TCL_OK; + if (TclObjTypeHasProc(objPtr, getElementsProc)) { + return TclObjTypeGetElements(interp, objPtr, objcPtr, objvPtr); } if (TclListObjGetRep(interp, objPtr, &listRep) != TCL_OK) { return TCL_ERROR; |