diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-17 14:01:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-17 14:01:01 (GMT) |
| commit | a8cbd4663aea70a49bc56c61016e39bebd99eeae (patch) | |
| tree | e1f682694ff90adb257ecb9bb5fce4ade8945441 /generic/tclMain.c | |
| parent | 1fb25505b732b94f74aae7edc392508bdd8a30fa (diff) | |
| parent | 1df484aa4e500a19662de2ddad6dcc4772ca71fa (diff) | |
| download | tcl-a8cbd4663aea70a49bc56c61016e39bebd99eeae.zip tcl-a8cbd4663aea70a49bc56c61016e39bebd99eeae.tar.gz tcl-a8cbd4663aea70a49bc56c61016e39bebd99eeae.tar.bz2 | |
Merge to feature branch
Diffstat (limited to 'generic/tclMain.c')
| -rw-r--r-- | generic/tclMain.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c index 652074e..114d2c3 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -392,7 +392,7 @@ Tcl_MainEx( /* * Arrange for final deletion of the main interp */ - // ARGH Munchhausen effect + /* ARGH Munchhausen effect */ Tcl_CreateExitHandler(FreeMainInterp, (ClientData)interp); } @@ -928,7 +928,7 @@ FreeMainInterp( { Tcl_Interp *interp = (Tcl_Interp *) clientData; - //if (TclInExit()) return; + /*if (TclInExit()) return;*/ if (!Tcl_InterpDeleted(interp)) { Tcl_DeleteInterp(interp); |