diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-08-15 19:55:26 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-08-15 19:55:26 (GMT) |
| commit | 5cdaf0e05bd402111776b93b830743a9746ad571 (patch) | |
| tree | 3a85bbb7f05c565e3a5f4b95c05501ee534c74d8 /generic/tclBasic.c | |
| parent | a2400fbe30f602e19fbeb74a5c6df7fc0e220699 (diff) | |
| download | tcl-5cdaf0e05bd402111776b93b830743a9746ad571.zip tcl-5cdaf0e05bd402111776b93b830743a9746ad571.tar.gz tcl-5cdaf0e05bd402111776b93b830743a9746ad571.tar.bz2 | |
Make sure the errors raised by execution traces become errors raised by
the traced command, as documented. Deletion of the traced command was
supressing that.
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 8ab3acb..314b5fc 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3642,7 +3642,7 @@ TclEvalObjvInternal( * implementation. */ - if (cmdEpoch != newEpoch) { + if (traceCode == TCL_OK && cmdEpoch != newEpoch) { checkTraces = 0; if (commandPtr) { Tcl_DecrRefCount(commandPtr); |