diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-12-19 20:48:52 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-12-19 20:48:52 (GMT) |
| commit | e10cd2e0a52b97a25e6e05658f8f96b2f53bf45c (patch) | |
| tree | 81f4d66eb1ad0fcfc2a52f87317119dbcf03fb38 /generic/tclBasic.c | |
| parent | 0fb81cb5dd85b298db7f4efe9c3dbdca910cf1d5 (diff) | |
| download | tcl-e10cd2e0a52b97a25e6e05658f8f96b2f53bf45c.zip tcl-e10cd2e0a52b97a25e6e05658f8f96b2f53bf45c.tar.gz tcl-e10cd2e0a52b97a25e6e05658f8f96b2f53bf45c.tar.bz2 | |
[586e71dce4] Exeception handling at level #0 by EvalObjv
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 79de61e..ddc828a 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -4561,7 +4561,7 @@ TEOV_Exception( if (result == TCL_RETURN) { result = TclUpdateReturnInfo(iPtr); } - if ((result != TCL_ERROR) && !allowExceptions) { + if ((result != TCL_OK) && (result != TCL_ERROR) && !allowExceptions) { ProcessUnexpectedResult(interp, result); result = TCL_ERROR; } |