diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-02 17:21:53 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-02 17:21:53 (GMT) |
| commit | a139661621ec842c91242c4b0fca910b9c964398 (patch) | |
| tree | 642e72b2957bdc240f47bb9d915a52d60995d771 /generic | |
| parent | 445755f38427241613b3d9209d17beab10076743 (diff) | |
| download | tcl-a139661621ec842c91242c4b0fca910b9c964398.zip tcl-a139661621ec842c91242c4b0fca910b9c964398.tar.gz tcl-a139661621ec842c91242c4b0fca910b9c964398.tar.bz2 | |
[f961d7d1dd] Repair usage message for ensemble parameters with spaces.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclEnsemble.c | 13 |
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 ...?"); |