diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-25 09:56:35 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-25 09:56:35 (GMT) |
| commit | 8c9ab6bacf51046f3bb722ac655d9a3ddfd237d2 (patch) | |
| tree | 06fab6fbf8d94dc0eb2f17c305d8dafffd79fd1c /generic/tclNamesp.c | |
| parent | dd02fe2c44cb40476303d7dacb4bc769c50ba185 (diff) | |
| download | tcl-8c9ab6bacf51046f3bb722ac655d9a3ddfd237d2.zip tcl-8c9ab6bacf51046f3bb722ac655d9a3ddfd237d2.tar.gz tcl-8c9ab6bacf51046f3bb722ac655d9a3ddfd237d2.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}, |