diff options
author | dgp <dgp@users.sourceforge.net> | 2013-08-14 19:07:01 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-08-14 19:07:01 (GMT) |
commit | e53364c7b0929f62adb4c101d487f1ebb2754a94 (patch) | |
tree | dfe7c4a814fe0185a1ca2065dc58a32252902994 /generic/tclOOMethod.c | |
parent | a733cde27c904a40aae56e93c7daa369e2a4d045 (diff) | |
parent | 45814c0d69b2f08f1940cd3ca3cd8ce389815779 (diff) | |
download | tcl-e53364c7b0929f62adb4c101d487f1ebb2754a94.zip tcl-e53364c7b0929f62adb4c101d487f1ebb2754a94.tar.gz tcl-e53364c7b0929f62adb4c101d487f1ebb2754a94.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclOOMethod.c')
-rw-r--r-- | generic/tclOOMethod.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 7595f82..c3e59d1 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -1429,6 +1429,8 @@ InvokeForwardMethod( contextPtr->oPtr->namespacePtr, 0 /* normal lookup */); } Tcl_NRAddCallback(interp, FinalizeForwardCall, argObjs, NULL, NULL, NULL); + ((Interp *)interp)->lookupNsPtr + = (Namespace *) contextPtr->oPtr->namespacePtr; return TclNREvalObjv(interp, len, argObjs, TCL_EVAL_NOERR, cmdPtr); } |