diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-06-08 03:21:30 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-06-08 03:21:30 (GMT) |
| commit | 4819a5befc336eb974ac83e7b8cd60cb3b4b695b (patch) | |
| tree | 1da367949238bc7267a07508a4cd8bcafdf80ebb /generic/tclProc.c | |
| parent | 17aeda99fb77f6fa2cd10e1dbc86bc85e57fe242 (diff) | |
| download | tcl-4819a5befc336eb974ac83e7b8cd60cb3b4b695b.zip tcl-4819a5befc336eb974ac83e7b8cd60cb3b4b695b.tar.gz tcl-4819a5befc336eb974ac83e7b8cd60cb3b4b695b.tar.bz2 | |
* generic/tclBasic.c: Compilation of uplevel scripts, allow
* generic/tclCompCmds.c: non-body compiled scripts to access the
* generic/tclCompile.c: LVT (but not to extend it) and enable the
* generic/tclCompile.h: canonical list opt to sidestep the
* generic/tclExecute.c: compiler. This is [Patch 1973096]
* generic/tclProc.c:
* tests/uplevel.test:
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 8aa8779..85f49f9 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclProc.c,v 1.140 2008/04/27 22:21:32 dkf Exp $ + * RCS: @(#) $Id: tclProc.c,v 1.141 2008/06/08 03:21:33 msofer Exp $ */ #include "tclInt.h" @@ -908,7 +908,7 @@ Tcl_UplevelObjCmd( */ if (objc == 1) { - result = Tcl_EvalObjEx(interp, objv[0], TCL_EVAL_DIRECT); + result = Tcl_EvalObjEx(interp, objv[0], 0); } else { /* * More than one argument: concatenate them together with spaces |