diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-10-25 09:56:35 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-10-25 09:56:35 (GMT) |
| commit | 3119098a801650d1e321ecfa669a82249bf7e368 (patch) | |
| tree | 06fab6fbf8d94dc0eb2f17c305d8dafffd79fd1c /generic/tclNamesp.c | |
| parent | f713ef5c71b8ae5249b2965c0a9a0aa4b060d783 (diff) | |
| download | tcl-3119098a801650d1e321ecfa669a82249bf7e368.zip tcl-3119098a801650d1e321ecfa669a82249bf7e368.tar.gz tcl-3119098a801650d1e321ecfa669a82249bf7e368.tar.bz2 | |
Added compilation of [namespace code] (except for gnarly edge cases).
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 d98de97..072eb72 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -161,7 +161,7 @@ static const Tcl_ObjType nsNameType = { static const EnsembleImplMap defaultNamespaceMap[] = { {"children", NamespaceChildrenCmd, NULL, NULL, NULL, 0}, - {"code", NamespaceCodeCmd, NULL, NULL, NULL, 0}, + {"code", NamespaceCodeCmd, TclCompileNamespaceCodeCmd, NULL, NULL, 0}, {"current", NamespaceCurrentCmd, TclCompileNamespaceCurrentCmd, NULL, NULL, 0}, {"delete", NamespaceDeleteCmd, NULL, NULL, NULL, 0}, {"ensemble", TclNamespaceEnsembleCmd, NULL, NULL, NULL, 0}, |