diff options
author | dgp <dgp@users.sourceforge.net> | 2013-04-08 18:11:33 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-04-08 18:11:33 (GMT) |
commit | 6b17a1e25a0decc3f6acbd09b70e06186e781f6e (patch) | |
tree | 6dbd95c782b9c5f5d998bac40cd3c6aced5ca61f /generic/tclNamesp.c | |
parent | 93b8f2696af89601f0c9f980088df04bfef5d593 (diff) | |
download | tcl-6b17a1e25a0decc3f6acbd09b70e06186e781f6e.zip tcl-6b17a1e25a0decc3f6acbd09b70e06186e781f6e.tar.gz tcl-6b17a1e25a0decc3f6acbd09b70e06186e781f6e.tar.bz2 |
Revise TclNREvalObjv so that pre-resolution of the Command by a caller
does not force suppression of exception handling. Let those be separable
demands. Aim is to bring TclObjInvoke*() into the fold.
Diffstat (limited to 'generic/tclNamesp.c')
-rw-r--r-- | generic/tclNamesp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index aed623a..bdd5386 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -1942,7 +1942,7 @@ InvokeImportedNRCmd( Command *realCmdPtr = dataPtr->realCmdPtr; TclSkipTailcall(interp); - return Tcl_NRCmdSwap(interp, (Tcl_Command) realCmdPtr, objc, objv, 0); + return TclNREvalObjv(interp, objc, objv, TCL_EVAL_NOERR, realCmdPtr); } static int |