diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-10-03 00:07:55 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-10-03 00:07:55 (GMT) |
| commit | 1037681faceac7ffe7d44b096a1f52ffa1652bc4 (patch) | |
| tree | 9966604cdb396ec4ca384174447f811f5ac51e35 /generic/tclIndexObj.c | |
| parent | ea92bd3066f8e943efaaf49aa1482cb2520f06f1 (diff) | |
| download | tcl-1037681faceac7ffe7d44b096a1f52ffa1652bc4.zip tcl-1037681faceac7ffe7d44b096a1f52ffa1652bc4.tar.gz tcl-1037681faceac7ffe7d44b096a1f52ffa1652bc4.tar.bz2 | |
typofix
Diffstat (limited to 'generic/tclIndexObj.c')
| -rw-r--r-- | generic/tclIndexObj.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index 2d29adf..4810933 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIndexObj.c,v 1.40 2008/10/03 00:01:35 dkf Exp $ + * RCS: @(#) $Id: tclIndexObj.c,v 1.41 2008/10/03 00:07:55 dkf Exp $ */ #include "tclInt.h" @@ -1234,7 +1234,7 @@ Tcl_ParseArgsObjv( argObj = objv[srcIndex]; } handlerProc = (Tcl_ArgvFuncProc) infoPtr->srcPtr; - if (handlerProc(infoPtr->clientData, infoPtr->dstPtr, argObj)) { + if (handlerProc(infoPtr->clientData, argObj, infoPtr->dstPtr)) { srcIndex++; objc--; } @@ -1244,8 +1244,8 @@ Tcl_ParseArgsObjv( Tcl_ArgvGenFuncProc handlerProc; handlerProc = (Tcl_ArgvGenFuncProc) infoPtr->srcPtr; - objc = handlerProc(infoPtr->clientData, infoPtr->dstPtr, interp, - objc, &objv[srcIndex]); + objc = handlerProc(infoPtr->clientData, interp, objc, + &objv[srcIndex], infoPtr->dstPtr); if (objc < 0) { goto error; } |