diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-08-15 19:59:32 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-08-15 19:59:32 (GMT) |
| commit | f228a3d780b151e65e2556dc6931dab3da644414 (patch) | |
| tree | 53980304ebd4b378c6e5926bd746ac753440f77d /generic/tclBasic.c | |
| parent | 565d20c208b6ee5f6d6253fdac47a3b35533f0db (diff) | |
| parent | 9aa94a7e289e9e7ac71e5278b8cbe56fedad8336 (diff) | |
| download | tcl-f228a3d780b151e65e2556dc6931dab3da644414.zip tcl-f228a3d780b151e65e2556dc6931dab3da644414.tar.gz tcl-f228a3d780b151e65e2556dc6931dab3da644414.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 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index dd6a40b..4a95340 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -4188,12 +4188,12 @@ TclNREvalObjv( result = TEOV_RunEnterTraces(interp, &cmdPtr, TclGetSourceFromFrame( flags & TCL_EVAL_SOURCE_IN_FRAME ? iPtr->cmdFramePtr : NULL, objc, objv), objc, objv, lookupNsPtr); - if (!cmdPtr) { - return TEOV_NotFound(interp, objc, objv, lookupNsPtr); - } if (result != TCL_OK) { return result; } + if (!cmdPtr) { + return TEOV_NotFound(interp, objc, objv, lookupNsPtr); + } } |