diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 08:42:43 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 08:42:43 (GMT) |
commit | da5c2b08af1531f171e79ee0d09a5288eabbec46 (patch) | |
tree | 38775495b0b57457df9be9a6a02b804955ba7da2 /generic/tclCompCmds.c | |
parent | 58aa27c456e8787c6b178a0c68265201b6803c74 (diff) | |
download | tcl-da5c2b08af1531f171e79ee0d09a5288eabbec46.zip tcl-da5c2b08af1531f171e79ee0d09a5288eabbec46.tar.gz tcl-da5c2b08af1531f171e79ee0d09a5288eabbec46.tar.bz2 |
Same with TclListObjGetElements
Diffstat (limited to 'generic/tclCompCmds.c')
-rw-r--r-- | generic/tclCompCmds.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 0130da8..a9024b3 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -893,7 +893,7 @@ TclCompileConcatCmd( const char *bytes; size_t len, slen; - Tcl_ListObjGetElements(NULL, listObj, &len, &objs); + TclListObjGetElements(NULL, listObj, &len, &objs); objPtr = Tcl_ConcatObj(len, objs); Tcl_DecrRefCount(listObj); bytes = Tcl_GetStringFromObj(objPtr, &slen); |