diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-12-30 08:37:49 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-12-30 08:37:49 (GMT) |
| commit | 1749e8cdf33e8232f22acc08f9ce4301b00ba7eb (patch) | |
| tree | a8680fa7474bcf0220ce6342a82e0a07e23ef8ff /generic/tclNamesp.c | |
| parent | 96f3f9a79df5d9ce6166a00452822684e177b743 (diff) | |
| download | tcl-1749e8cdf33e8232f22acc08f9ce4301b00ba7eb.zip tcl-1749e8cdf33e8232f22acc08f9ce4301b00ba7eb.tar.gz tcl-1749e8cdf33e8232f22acc08f9ce4301b00ba7eb.tar.bz2 | |
implement [namespace origin] in bytecode
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 cd44455..8f2f10e 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -171,7 +171,7 @@ static const EnsembleImplMap defaultNamespaceMap[] = { {"forget", NamespaceForgetCmd, TclCompileBasicMin0ArgCmd, NULL, NULL, 0}, {"import", NamespaceImportCmd, TclCompileBasicMin0ArgCmd, NULL, NULL, 0}, {"inscope", NamespaceInscopeCmd, NULL, NRNamespaceInscopeCmd, NULL, 0}, - {"origin", NamespaceOriginCmd, TclCompileBasic1ArgCmd, NULL, NULL, 0}, + {"origin", NamespaceOriginCmd, TclCompileNamespaceOriginCmd, NULL, NULL, 0}, {"parent", NamespaceParentCmd, TclCompileBasic0Or1ArgCmd, NULL, NULL, 0}, {"path", NamespacePathCmd, TclCompileBasic0Or1ArgCmd, NULL, NULL, 0}, {"qualifiers", NamespaceQualifiersCmd, TclCompileNamespaceQualifiersCmd, NULL, NULL, 0}, |