diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-12 02:11:43 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-12 02:11:43 (GMT) |
| commit | 4e44a9bda40f4368909a35512f60e0a0919c7395 (patch) | |
| tree | 6437942bb5bba0ad8e036ac69ec058c8436f5bba /generic | |
| parent | c4c621db4a8d442fab0cdec293e7e53474a0bf28 (diff) | |
| download | tcl-4e44a9bda40f4368909a35512f60e0a0919c7395.zip tcl-4e44a9bda40f4368909a35512f60e0a0919c7395.tar.gz tcl-4e44a9bda40f4368909a35512f60e0a0919c7395.tar.bz2 | |
small bug fix
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index e3d971c..b73aeac 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -4206,7 +4206,9 @@ EvalObjvCore( if (enterTracesDone || iPtr->tracePtr || (cmdPtr->flags & CMD_HAS_EXEC_TRACES)) { - Tcl_Obj *commandPtr = GetCommandSource(iPtr, objc, objv); + Tcl_Obj *commandPtr = (flags & TCL_EVAL_SOURCE_IN_FRAME) + ? GetCommandSource(iPtr, objc, objv) + : Tcl_NewListObj(objc, objv); if (!enterTracesDone) { |