diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-11-16 18:01:49 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-11-16 18:01:49 (GMT) |
| commit | dce1b940f545bb8797289e11aed2715451c71396 (patch) | |
| tree | 04b73728742644ac768f1097e3cdceb53c863b96 | |
| parent | bce1984cd71b25499760b589bfe695ffb6213d83 (diff) | |
| download | tcl-dce1b940f545bb8797289e11aed2715451c71396.zip tcl-dce1b940f545bb8797289e11aed2715451c71396.tar.gz tcl-dce1b940f545bb8797289e11aed2715451c71396.tar.bz2 | |
Use proper command creation routine.
| -rw-r--r-- | generic/tclTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index cdaa440..b089065 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.137 2009/11/16 17:38:09 ferrieux Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.138 2009/11/16 18:01:49 dgp Exp $ */ #define TCL_TEST @@ -622,7 +622,7 @@ Tcltest_Init( Tcl_CreateObjCommand(interp, "testlocale", TestlocaleCmd, (ClientData) 0, NULL); Tcl_CreateCommand(interp, "testpanic", TestpanicCmd, (ClientData) 0, NULL); - Tcl_CreateCommand(interp, "testfinexit", TestfinexitObjCmd, (ClientData) 0, NULL); + Tcl_CreateObjCommand(interp, "testfinexit", TestfinexitObjCmd, (ClientData) 0, NULL); Tcl_CreateObjCommand(interp, "testparser", TestparserObjCmd, (ClientData) 0, NULL); Tcl_CreateObjCommand(interp, "testparsevar", TestparsevarObjCmd, |