diff options
Diffstat (limited to 'generic/tclStubInit.c')
-rw-r--r-- | generic/tclStubInit.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index a80ebf2..cb73ebf 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -75,7 +75,9 @@ static void TclBackgroundException(interp, code) Tcl_Interp *interp; int code; { - Tcl_BackgroundError(interp); + if (code != TCL_OK) { + Tcl_BackgroundError(interp); + } } #define TclCanceled canceled static int TclCanceled(interp) |