diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-04-21 09:05:06 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-04-21 09:05:06 (GMT) |
| commit | aa8f3c2fc3166ccdb25c69c648c92c6a2b3b0aa2 (patch) | |
| tree | ab1d27fc281fbb6f781c54c4e2b0940f83580a61 /generic/tclEnsemble.c | |
| parent | 2ac35e3c128bbcd2e7a7c7b9050fe8e9bc251a69 (diff) | |
| parent | bcd88b005a09280f4b9725d611fd3763fd07241f (diff) | |
| download | tcl-aa8f3c2fc3166ccdb25c69c648c92c6a2b3b0aa2.zip tcl-aa8f3c2fc3166ccdb25c69c648c92c6a2b3b0aa2.tar.gz tcl-aa8f3c2fc3166ccdb25c69c648c92c6a2b3b0aa2.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 1283446..1e1a901 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -1823,11 +1823,6 @@ NsEnsembleImplementationCmdNR( * count both as inserted and removed arguments. */ -#if 0 - if (TclInitRewriteEnsemble(interp, 2 + ensemblePtr->numParameters, prefixObjc + ensemblePtr->numParameters, objv)) { - TclNRAddCallback(interp, TclClearRootEnsemble, NULL, NULL, NULL, NULL); - } -#else if (iPtr->ensembleRewrite.sourceObjs == NULL) { iPtr->ensembleRewrite.sourceObjs = objv; iPtr->ensembleRewrite.numRemovedObjs = @@ -1848,14 +1843,13 @@ NsEnsembleImplementationCmdNR( iPtr->ensembleRewrite.numInsertedObjs += prefixObjc-2; } } -#endif /* * Hand off to the target command. */ iPtr->evalFlags |= TCL_EVAL_REDIRECT; - return Tcl_NREvalObj(interp, copyPtr, TCL_EVAL_INVOKE); + return TclNREvalObjEx(interp, copyPtr, TCL_EVAL_INVOKE, NULL,INT_MIN); } unknownOrAmbiguousSubcommand: |