diff options
author | dgp <dgp@users.sourceforge.net> | 2013-08-15 20:00:34 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-08-15 20:00:34 (GMT) |
commit | c52ed9de83b4635e8303e0df7dc0aa910d408973 (patch) | |
tree | 6d7dde7005c8ac5d0ced22b7133c574b83c315fa /generic | |
parent | cd515f6877c545167e3717e71175aca000d0a429 (diff) | |
parent | 9feda62fe0318715623c455abe7289bbb7dec34e (diff) | |
download | tcl-c52ed9de83b4635e8303e0df7dc0aa910d408973.zip tcl-c52ed9de83b4635e8303e0df7dc0aa910d408973.tar.gz tcl-c52ed9de83b4635e8303e0df7dc0aa910d408973.tar.bz2 |
merge trunk
Diffstat (limited to 'generic')
-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 fc238ce..64563ee 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -4189,12 +4189,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); + } } |