diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-08-15 19:59:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-08-15 19:59:32 (GMT) |
| commit | 9feda62fe0318715623c455abe7289bbb7dec34e (patch) | |
| tree | 53980304ebd4b378c6e5926bd746ac753440f77d /generic/tclBasic.c | |
| parent | 77e6fd7e3c4a62f918f3a52cfb48d176c0d9d9a7 (diff) | |
| parent | 86d682b82273fd98a4259df86f4303bc65a896b6 (diff) | |
| download | tcl-9feda62fe0318715623c455abe7289bbb7dec34e.zip tcl-9feda62fe0318715623c455abe7289bbb7dec34e.tar.gz tcl-9feda62fe0318715623c455abe7289bbb7dec34e.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); + } } |