diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-13 18:08:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-13 18:08:03 (GMT) |
| commit | fff9b53f89966d7809b934c0edd0fa21c9019385 (patch) | |
| tree | 4227b33f1eca8f7606dc892affaaf205fe253873 /generic/tclStubInit.c | |
| parent | c21d106c22d6a245cc459fe9958e9799b4d80d13 (diff) | |
| download | tcl-fff9b53f89966d7809b934c0edd0fa21c9019385.zip tcl-fff9b53f89966d7809b934c0edd0fa21c9019385.tar.gz tcl-fff9b53f89966d7809b934c0edd0fa21c9019385.tar.bz2 | |
Fix TclBackgroundException implementation
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) |