diff options
Diffstat (limited to 'generic/tclOO.c')
-rw-r--r-- | generic/tclOO.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index 21ef402..cbdd2dc 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -308,7 +308,6 @@ InitFoundation( Foundation *fPtr = ckalloc(sizeof(Foundation)); Tcl_Obj *namePtr, *argsPtr, *bodyPtr; Tcl_DString buffer; - Command *cmdPtr; int i; /* @@ -435,9 +434,8 @@ InitFoundation( NULL); Tcl_CreateObjCommand(interp, "::oo::Helpers::nextto", TclOONextToObjCmd, NULL, NULL); - cmdPtr = (Command *) Tcl_CreateObjCommand(interp, "::oo::Helpers::self", + Tcl_CreateObjCommand(interp, "::oo::Helpers::self", TclOOSelfObjCmd, NULL, NULL); - cmdPtr->compileProc = TclCompileObjectSelfCmd; Tcl_CreateObjCommand(interp, "::oo::define", TclOODefineObjCmd, NULL, NULL); Tcl_CreateObjCommand(interp, "::oo::objdefine", TclOOObjDefObjCmd, NULL, |