diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-26 07:32:47 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-26 07:32:47 (GMT) |
| commit | ecb8fcec67eaa9ecc3902b669ad242dd76038562 (patch) | |
| tree | adc7c064741a37afc892c059151bdb56e457191a /generic/tclNamesp.c | |
| parent | 8c9ab6bacf51046f3bb722ac655d9a3ddfd237d2 (diff) | |
| download | tcl-ecb8fcec67eaa9ecc3902b669ad242dd76038562.zip tcl-ecb8fcec67eaa9ecc3902b669ad242dd76038562.tar.gz tcl-ecb8fcec67eaa9ecc3902b669ad242dd76038562.tar.bz2 | |
Compile [namespace which -command]; big performance saving in some contexts.
Diffstat (limited to 'generic/tclNamesp.c')
| -rw-r--r-- | generic/tclNamesp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 072eb72..60c40d0 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -178,7 +178,7 @@ static const EnsembleImplMap defaultNamespaceMap[] = { {"tail", NamespaceTailCmd, NULL, NULL, NULL, 0}, {"unknown", NamespaceUnknownCmd, NULL, NULL, NULL, 0}, {"upvar", NamespaceUpvarCmd, TclCompileNamespaceUpvarCmd, NULL, NULL, 0}, - {"which", NamespaceWhichCmd, NULL, NULL, NULL, 0}, + {"which", NamespaceWhichCmd, TclCompileNamespaceWhichCmd, NULL, NULL, 0}, {NULL, NULL, NULL, NULL, NULL, 0} }; |