diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-04-01 21:48:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-04-01 21:48:51 (GMT) |
| commit | 696a9ba3f9a7c0ed882dc6a3b878970f8a94d27c (patch) | |
| tree | 1d510edc10b8c5a681d60fc8c48575e8db734688 | |
| parent | 9db6776dbe890df61746ecc0c41875ccf55e3539 (diff) | |
| download | tcl-696a9ba3f9a7c0ed882dc6a3b878970f8a94d27c.zip tcl-696a9ba3f9a7c0ed882dc6a3b878970f8a94d27c.tar.gz tcl-696a9ba3f9a7c0ed882dc6a3b878970f8a94d27c.tar.bz2 | |
Use Tcl_InitSubsystems in Tcl_Main macro
| -rw-r--r-- | generic/tcl.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 5d93e8d..051e2a1 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2424,7 +2424,7 @@ EXTERN const char *Tcl_InitSubsystems(Tcl_PanicProc *panicProc); */ #define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \ - (Tcl_FindExecutable(argv[0]), (Tcl_CreateInterp)())) + (Tcl_InitSubsystems(NULL), Tcl_CreateInterp())) EXTERN void Tcl_MainEx(int argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp, |