diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 08:34:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 08:34:43 (GMT) |
| commit | 58aa27c456e8787c6b178a0c68265201b6803c74 (patch) | |
| tree | 9d395214658f1f03f3d3d32e9e2bc32c96acb033 /generic/tclNamesp.c | |
| parent | d90d6f4856436b52106b3e558a211fc558368583 (diff) | |
| download | tcl-58aa27c456e8787c6b178a0c68265201b6803c74.zip tcl-58aa27c456e8787c6b178a0c68265201b6803c74.tar.gz tcl-58aa27c456e8787c6b178a0c68265201b6803c74.tar.bz2 | |
Tcl_ListObjLength -> TclListObjLength
Diffstat (limited to 'generic/tclNamesp.c')
| -rw-r--r-- | generic/tclNamesp.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 53c5769..fd43f5b 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -4436,7 +4436,7 @@ Tcl_SetNamespaceUnknownHandler( */ if (handlerPtr != NULL) { - if (Tcl_ListObjLength(interp, handlerPtr, &lstlen) != TCL_OK) { + if (TclListObjLength(interp, handlerPtr, &lstlen) != TCL_OK) { /* * Not a list. */ @@ -5013,7 +5013,7 @@ TclLogCommandInfo( size_t len; iPtr->resetErrorStack = 0; - Tcl_ListObjLength(interp, iPtr->errorStack, &len); + TclListObjLength(interp, iPtr->errorStack, &len); /* * Reset while keeping the list internalrep as much as possible. @@ -5098,7 +5098,7 @@ TclErrorStackResetIf( size_t len; iPtr->resetErrorStack = 0; - Tcl_ListObjLength(interp, iPtr->errorStack, &len); + TclListObjLength(interp, iPtr->errorStack, &len); /* * Reset while keeping the list internalrep as much as possible. |