diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2011-09-16 13:13:11 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2011-09-16 13:13:11 (GMT) |
| commit | 100509c43b124b3d548fa89813bd37624835568c (patch) | |
| tree | fa60ba1a0c33fd214cda7a1313d82633c445d112 /generic/tclProc.c | |
| parent | 6c10d91b4415e0a54e5e4806f74e1e3dca836d85 (diff) | |
| download | tcl-100509c43b124b3d548fa89813bd37624835568c.zip tcl-100509c43b124b3d548fa89813bd37624835568c.tar.gz tcl-100509c43b124b3d548fa89813bd37624835568c.tar.bz2 | |
[Bug 3408830]: Use the _right_ fix for [Bug 3400658]!
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 50cf0f7..d008217 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -1120,6 +1120,8 @@ ProcWrongNumArgs( if (framePtr->isProcCallFrame & FRAME_IS_LAMBDA) { desiredObjs[0] = Tcl_NewStringObj("lambdaExpr", -1); } else { + ((Interp *) interp)->ensembleRewrite.numInsertedObjs -= skip - 1; + #ifdef AVOID_HACKS_FOR_ITCL desiredObjs[0] = framePtr->objv[skip-1]; #else |