diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-12-07 16:29:31 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-12-07 16:29:31 (GMT) |
| commit | 00ea0049a0fcf1517652f613da6ee76288bfb1ac (patch) | |
| tree | c2fc6caf95f27ee10c3551da580866307da9114e /generic | |
| parent | 55152d9ae350f4a7f420dc42478ab6cec1440b40 (diff) | |
| download | tcl-00ea0049a0fcf1517652f613da6ee76288bfb1ac.zip tcl-00ea0049a0fcf1517652f613da6ee76288bfb1ac.tar.gz tcl-00ea0049a0fcf1517652f613da6ee76288bfb1ac.tar.bz2 | |
Handle the export of the commands from tcl::mathop more efficiently
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 1684b48..bef8f10 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.226 2006/12/07 16:18:38 dgp Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.227 2006/12/07 16:29:31 dkf Exp $ */ #include "tclInt.h" @@ -335,7 +335,7 @@ Tcl_CreateInterp(void) char mathFuncName[32]; CallFrame *framePtr; int result; - + TclInitSubsystems(); /* @@ -631,6 +631,7 @@ Tcl_CreateInterp(void) if (mathopNSPtr == NULL) { Tcl_Panic("can't create math operator namespace"); } + (void) Tcl_Export(interp, mathopNSPtr, "*", 1); strcpy(mathFuncName, "::tcl::mathop::"); for (cmdInfoPtr=mathOpCmds ; cmdInfoPtr->name!=NULL ; cmdInfoPtr++) { strcpy(mathFuncName + MATH_OP_PREFIX_LEN, cmdInfoPtr->name); @@ -641,7 +642,6 @@ Tcl_CreateInterp(void) } else if (cmdInfoPtr->compileProc != NULL) { cmdPtr->compileProc = cmdInfoPtr->compileProc; } - Tcl_Export(interp, mathopNSPtr, cmdInfoPtr->name, 0); } /* |