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/tclProc.c | |
| parent | d90d6f4856436b52106b3e558a211fc558368583 (diff) | |
| download | tcl-58aa27c456e8787c6b178a0c68265201b6803c74.zip tcl-58aa27c456e8787c6b178a0c68265201b6803c74.tar.gz tcl-58aa27c456e8787c6b178a0c68265201b6803c74.tar.bz2 | |
Tcl_ListObjLength -> TclListObjLength
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 5f4d884..0284a66 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -920,7 +920,7 @@ TclNRUplevelObjCmd( } else if (!TclHasStringRep(objv[1]) && objc == 2) { int status; size_t llength; - status = Tcl_ListObjLength(interp, objv[1], &llength); + status = TclListObjLength(interp, objv[1], &llength); if (status == TCL_OK && llength > 1) { /* the first argument can't interpreted as a level. Avoid * generating a string representation of the script. */ |