diff options
| -rw-r--r-- | generic/tclOOCall.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index bac6518..5fe20b3 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -925,12 +925,15 @@ AddSimpleChainToCallContext( } } } + if (!oPtr->selfCls) { + return foundPrivate; + } if (contextCls) { foundPrivate |= AddPrivatesFromClassChainToCallContext(oPtr->selfCls, contextCls, methodNameObj, cbPtr, doneFilters, flags, filterDecl); } - if (!blockedUnexported && oPtr->selfCls) { + if (!blockedUnexported) { foundPrivate |= AddSimpleClassChainToCallContext(oPtr->selfCls, methodNameObj, cbPtr, doneFilters, flags, filterDecl); } |