summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-12-07 16:29:31 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-12-07 16:29:31 (GMT)
commit00ea0049a0fcf1517652f613da6ee76288bfb1ac (patch)
treec2fc6caf95f27ee10c3551da580866307da9114e /generic/tclBasic.c
parent55152d9ae350f4a7f420dc42478ab6cec1440b40 (diff)
downloadtcl-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/tclBasic.c')
-rw-r--r--generic/tclBasic.c6
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);
}
/*