diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2002-07-29 15:56:53 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2002-07-29 15:56:53 (GMT) |
| commit | 75164b5a8a9172465a393abd3e3a6d9c7674e7d8 (patch) | |
| tree | 3f080f45cb9304d12e125a5dcda51cac698ad730 /generic/tclInterp.c | |
| parent | edeb2f602f676509e74e81b4d65bb966dc28e395 (diff) | |
| download | tcl-75164b5a8a9172465a393abd3e3a6d9c7674e7d8.zip tcl-75164b5a8a9172465a393abd3e3a6d9c7674e7d8.tar.gz tcl-75164b5a8a9172465a393abd3e3a6d9c7674e7d8.tar.bz2 | |
bugfix, new tests for new [interp alias] code
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 65c41d9..06d81fe 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInterp.c,v 1.13 2002/07/29 00:25:49 msofer Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.14 2002/07/29 15:56:54 msofer Exp $ */ #include "tclInt.h" @@ -1452,11 +1452,11 @@ AliasObjCmd(clientData, interp, objc, objv) if (targetInterp != interp) { Tcl_Preserve((ClientData) targetInterp); - result = Tcl_EvalObjv(targetInterp, cmdc, cmdv, TCL_EVAL_NO_TRACEBACK); + result = Tcl_EvalObjv(targetInterp, cmdc, cmdv, TCL_EVAL_INVOKE); TclTransferResult(targetInterp, result, interp); Tcl_Release((ClientData) targetInterp); } else { - result = Tcl_EvalObjv(targetInterp, cmdc, cmdv, TCL_EVAL_NO_TRACEBACK); + result = Tcl_EvalObjv(targetInterp, cmdc, cmdv, TCL_EVAL_INVOKE); } if (cmdv != cmdArr) { |