diff options
Diffstat (limited to 'generic/tclParse.c')
| -rw-r--r-- | generic/tclParse.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index 96c2a10..ff4f384 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -2275,7 +2275,6 @@ TclSubstTokens( case TCL_TOKEN_COMMAND: { Interp *iPtr = (Interp *) interp; - iPtr->numLevels++; code = TclInterpReady(interp); if (code == TCL_OK) { /* @@ -2297,7 +2296,6 @@ TclSubstTokens( iPtr->evalFlags |= TCL_EVAL_FILE; } } - iPtr->numLevels--; appendObj = Tcl_GetObjResult(interp); break; } |