diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-05 19:54:04 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-05 19:54:04 (GMT) |
| commit | b5c698129ce5b48411932613540a8cbf9ea8a85d (patch) | |
| tree | 3df8cb4c8aa6470c4ad999909bfe3121b217fe7b /generic/tclEnsemble.c | |
| parent | db45aa4434d4a7af38b8c14072648bf9965d462b (diff) | |
| download | tcl-bug_bd7f17bce8.zip tcl-bug_bd7f17bce8.tar.gz tcl-bug_bd7f17bce8.tar.bz2 | |
Enable TCL_EVAL_INVOKE support in the Tcl*Eval(Ex)* family.bug_bd7f17bce8
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 818534e..5243dca 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -1852,7 +1852,7 @@ NsEnsembleImplementationCmdNR( Tcl_ListObjLength(NULL, prefixObj, &prefixObjc); - if (0 && objc == 2) { + if (1 && objc == 2) { /* * Branch disabled until it works. See oo-1[67].1.1 * @@ -1892,7 +1892,7 @@ NsEnsembleImplementationCmdNR( */ TclSkipTailcall(interp); - return TclNREvalObjEx(interp, copyPtr, TCL_EVAL_INVOKE, NULL,INT_MIN); + return TclNREvalObjEx(interp, copyPtr, TCL_EVAL_DIRECT|TCL_EVAL_INVOKE, NULL, INT_MIN); } unknownOrAmbiguousSubcommand: |