summaryrefslogtreecommitdiffstats
path: root/generic/tclInterp.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclInterp.c')
-rw-r--r--generic/tclInterp.c12
1 files changed, 1 insertions, 11 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c
index 1a4297b..edd9d0c 100644
--- a/generic/tclInterp.c
+++ b/generic/tclInterp.c
@@ -2800,17 +2800,7 @@ SlaveEval(
Tcl_AllowExceptions(slaveInterp);
if (objc == 1) {
- /*
- * TIP #280: Make actual argument location available to eval'd script.
- */
-
- Interp *iPtr = (Interp *) interp;
- CmdFrame *invoker = iPtr->cmdFramePtr;
- int word = 0;
-
- TclArgumentGet(interp, objv[0], &invoker, &word);
-
- result = TclEvalObjEx(slaveInterp, objv[0], 0, invoker, word);
+ result = Tcl_EvalObjEx(slaveInterp, objv[0], 0);
} else {
Tcl_Obj *objPtr = Tcl_ConcatObj(objc, objv);
Tcl_IncrRefCount(objPtr);