diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-12-11 14:41:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-12-11 14:41:09 (GMT) |
| commit | 6e36638f7c05fb239d0b0d56fee36f8b2c62bcd1 (patch) | |
| tree | 0793196b164cbcf147c73905073abe515d84bfd9 /generic | |
| parent | c5f0eae368ab6a18f4d21796385e963adcd3cf34 (diff) | |
| download | tcl-6e36638f7c05fb239d0b0d56fee36f8b2c62bcd1.zip tcl-6e36638f7c05fb239d0b0d56fee36f8b2c62bcd1.tar.gz tcl-6e36638f7c05fb239d0b0d56fee36f8b2c62bcd1.tar.bz2 | |
Get the word number right, even though it has no effect.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCompCmds.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 10cba39..e0dee13 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -411,7 +411,7 @@ TclCompileCatchCmd( if (parsePtr->numWords == 4) { optsNameTokenPtr = TokenAfter(resultNameTokenPtr); PushVarNameWord(interp, optsNameTokenPtr, envPtr, TCL_CREATE_VAR, - &optsIndex, &isSimple, &isScalar, 2); + &optsIndex, &isSimple, &isScalar, 3); if (!isScalar || resultIndex < 0) { return TCL_ERROR; } |