diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-05-24 12:23:52 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-05-24 12:23:52 (GMT) |
| commit | 5bd6dd53b688d13a70275daa5ae14814b8c69221 (patch) | |
| tree | 1332646ee0c2fa27bca16838e206d0222b8dbf59 /generic/tclInt.h | |
| parent | 23c320cea6647facf962db57c34c5cd85b9432b6 (diff) | |
| download | tcl-5bd6dd53b688d13a70275daa5ae14814b8c69221.zip tcl-5bd6dd53b688d13a70275daa5ae14814b8c69221.tar.gz tcl-5bd6dd53b688d13a70275daa5ae14814b8c69221.tar.bz2 | |
Remove some useless code from mcset and mcmset: [dict set] builds dictionary levels for us.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 8f003be..75f894f 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4227,8 +4227,11 @@ MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, const char *file, */ #define TclInvalidateNsCmdLookup(nsPtr) \ - if ((nsPtr)->numExportPatterns) { \ - (nsPtr)->exportLookupEpoch++; \ + if ((nsPtr)->numExportPatterns) { \ + (nsPtr)->exportLookupEpoch++; \ + } \ + if ((nsPtr)->commandPathLength) { \ + (nsPtr)->cmdRefEpoch++; \ } /* |