diff options
| -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); |