summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-06-12 22:19:37 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-06-12 22:19:37 (GMT)
commit84342dd922831d49d85fca90a2c7e5ac5e9ad60f (patch)
tree324b5b7a2268b61a06b28878323722f1849b7926 /generic
parentc876fcb699005897b1f05d4c92df02666c35898f (diff)
downloadtcl-84342dd922831d49d85fca90a2c7e5ac5e9ad60f.zip
tcl-84342dd922831d49d85fca90a2c7e5ac5e9ad60f.tar.gz
tcl-84342dd922831d49d85fca90a2c7e5ac5e9ad60f.tar.bz2
D'oh!
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompCmds.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index a00106a..1506e1b 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.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: tclCompCmds.c,v 1.71 2005/06/12 22:13:27 dkf Exp $
+ * RCS: @(#) $Id: tclCompCmds.c,v 1.72 2005/06/12 22:19:37 dkf Exp $
*/
#include "tclInt.h"
@@ -332,7 +332,7 @@ TclCompileCatchCmd(interp, parsePtr, envPtr)
if (cmdTokenPtr->type == TCL_TOKEN_SIMPLE_WORD) {
startOffset = CurrentOffset(envPtr);
- CompileBody(envPtr, cmdTokenPtr, envPtr);
+ CompileBody(envPtr, cmdTokenPtr, interp);
} else {
TclCompileTokens(interp, cmdTokenPtr+1,
cmdTokenPtr->numComponents, envPtr);