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 | 4ad593f2bfa83036baa51ee39064e8c5f1020e5e (patch) | |
| tree | a8680fa7474bcf0220ce6342a82e0a07e23ef8ff /generic/tclNamesp.c | |
| parent | cdacc33cbbaa19a6840b6de4549153bf33da94e4 (diff) | |
| download | tcl-4ad593f2bfa83036baa51ee39064e8c5f1020e5e.zip tcl-4ad593f2bfa83036baa51ee39064e8c5f1020e5e.tar.gz tcl-4ad593f2bfa83036baa51ee39064e8c5f1020e5e.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}, |