summaryrefslogtreecommitdiffstats
path: root/generic/tclEnsemble.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-07-02 17:21:53 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-07-02 17:21:53 (GMT)
commita139661621ec842c91242c4b0fca910b9c964398 (patch)
tree642e72b2957bdc240f47bb9d915a52d60995d771 /generic/tclEnsemble.c
parent445755f38427241613b3d9209d17beab10076743 (diff)
downloadtcl-a139661621ec842c91242c4b0fca910b9c964398.zip
tcl-a139661621ec842c91242c4b0fca910b9c964398.tar.gz
tcl-a139661621ec842c91242c4b0fca910b9c964398.tar.bz2
[f961d7d1dd] Repair usage message for ensemble parameters with spaces.
Diffstat (limited to 'generic/tclEnsemble.c')
-rw-r--r--generic/tclEnsemble.c13
1 files changed, 3 insertions, 10 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c
index 5c47ce3..a86b5c4 100644
--- a/generic/tclEnsemble.c
+++ b/generic/tclEnsemble.c
@@ -1674,18 +1674,11 @@ NsEnsembleImplementationCmdNR(
*/
Tcl_DString buf; /* Message being built */
- Tcl_Obj **elemPtrs; /* Parameter names */
- int len; /* Number of parameters to append */
Tcl_DStringInit(&buf);
- if (ensemblePtr->parameterList == NULL) {
- len = 0;
- } else if (TclListObjGetElements(NULL, ensemblePtr->parameterList,
- &len, &elemPtrs) != TCL_OK) {
- Tcl_Panic("List of ensemble parameters is not a list");
- }
- for (; len>0; len--,elemPtrs++) {
- TclDStringAppendObj(&buf, *elemPtrs);
+ if (ensemblePtr->parameterList) {
+ Tcl_DStringAppend(&buf,
+ TclGetString(ensemblePtr->parameterList), -1);
TclDStringAppendLiteral(&buf, " ");
}
TclDStringAppendLiteral(&buf, "subcommand ?arg ...?");