diff options
Diffstat (limited to 'generic/tclOOBasic.c')
| -rw-r--r-- | generic/tclOOBasic.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c index f8cd1a4..1700772 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -404,7 +404,6 @@ TclOO_Object_Eval( CallFrame *framePtr, **framePtrPtr = &framePtr; Tcl_Obj *scriptPtr; int result; - CmdFrame *invoker; if (objc-1 < skip) { Tcl_WrongNumArgs(interp, skip, objv, "arg ?arg ...?"); @@ -439,10 +438,8 @@ TclOO_Object_Eval( if (objc != skip+1) { scriptPtr = Tcl_ConcatObj(objc-skip, objv+skip); - invoker = NULL; } else { scriptPtr = objv[skip]; - invoker = ((Interp *) interp)->cmdFramePtr; } /* @@ -451,7 +448,7 @@ TclOO_Object_Eval( */ TclNRAddCallback(interp, FinalizeEval, object, NULL, NULL, NULL); - return TclNREvalObjEx(interp, scriptPtr, 0, invoker, skip); + return TclNREvalObjEx(interp, scriptPtr, 0); } static int |