summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2003-06-10 19:52:58 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2003-06-10 19:52:58 (GMT)
commit92c15d605271fd6ecd23d9d0ad33c6d6f5edd3b9 (patch)
tree437f398ae5570ce4fcd6d50db97c8eb54ee2a03a
parent06dfd692f84e8dec06b42f65482a77a9f5c09136 (diff)
downloadtcl-92c15d605271fd6ecd23d9d0ad33c6d6f5edd3b9.zip
tcl-92c15d605271fd6ecd23d9d0ad33c6d6f5edd3b9.tar.gz
tcl-92c15d605271fd6ecd23d9d0ad33c6d6f5edd3b9.tar.bz2
fix for previous commit
-rw-r--r--generic/tclExecute.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 4c48584..8e5714f 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclExecute.c,v 1.102 2003/06/10 19:46:44 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.103 2003/06/10 19:52:58 msofer Exp $
*/
#include "tclInt.h"
@@ -918,6 +918,7 @@ TclCompEvalObj(interp, objPtr)
iPtr->errorLine = 1;
result = tclByteCodeType.setFromAnyProc(interp, objPtr);
if (result != TCL_OK) {
+ iPtr->numLevels--;
return result;
}
iPtr->evalFlags = 0;