summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-10-20 15:16:47 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-10-20 15:16:47 (GMT)
commitd3e1aa1876716ce04f520834edee8125724daac9 (patch)
tree6e5adffffcc577f30bfd88dbb0cfad5846a9e410 /generic/tclBasic.c
parent667340e02adf467adc84a317f84580be29dc5c71 (diff)
downloadtcl-d3e1aa1876716ce04f520834edee8125724daac9.zip
tcl-d3e1aa1876716ce04f520834edee8125724daac9.tar.gz
tcl-d3e1aa1876716ce04f520834edee8125724daac9.tar.bz2
Undo mistaken commit to wrong branch caused by CVS fumble... :-}
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r--generic/tclBasic.c18
1 files changed, 7 insertions, 11 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 0b9f15f..a7a31a6 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.199 2006/10/20 14:04:00 dkf Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.200 2006/10/20 15:16:47 dkf Exp $
*/
#include "tclInt.h"
@@ -526,18 +526,13 @@ Tcl_CreateInterp(void)
#endif
/*
- * TIP #59: Make embedded configuration information available.
+ * TIP #59: Make embedded configuration information
+ * available.
*/
TclInitEmbeddedConfigurationInformation(interp);
/*
- * TIP #257: Install the OO engine (for testing).
- */
-
- TclOOInit(interp);
-
- /*
* Compute the byte order of this machine.
*/
@@ -1943,8 +1938,8 @@ TclInvokeObjectCommand(
int
TclRenameCommand(
Tcl_Interp *interp, /* Current interpreter. */
- const char *oldName, /* Existing command name. */
- const char *newName) /* New command name. */
+ char *oldName, /* Existing command name. */
+ char *newName) /* New command name. */
{
Interp *iPtr = (Interp *) interp;
CONST char *newTail;
@@ -1961,7 +1956,8 @@ TclRenameCommand(
* found.
*/
- cmd = Tcl_FindCommand(interp, oldName, NULL, /*flags*/ 0);
+ cmd = Tcl_FindCommand(interp, oldName, NULL,
+ /*flags*/ 0);
cmdPtr = (Command *) cmd;
if (cmdPtr == NULL) {
Tcl_AppendResult(interp, "can't ",