diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-31 20:27:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-31 20:27:33 (GMT) |
| commit | a58db736cfe4a984cd83ab93d38da09d21fb418f (patch) | |
| tree | 76192053fa5b5ec92a211c5a550d17a804e5435f | |
| parent | 449ea437180bc44e39e63c8126f8f654aeb98b0a (diff) | |
| download | tcl-a58db736cfe4a984cd83ab93d38da09d21fb418f.zip tcl-a58db736cfe4a984cd83ab93d38da09d21fb418f.tar.gz tcl-a58db736cfe4a984cd83ab93d38da09d21fb418f.tar.bz2 | |
Fix Tcl_Main macro
| -rw-r--r-- | doc/InitStubs.3 | 4 | ||||
| -rw-r--r-- | generic/tcl.h | 2 |
2 files changed, 1 insertions, 5 deletions
diff --git a/doc/InitStubs.3 b/doc/InitStubs.3 index 8188b0b..4dc62c6 100644 --- a/doc/InitStubs.3 +++ b/doc/InitStubs.3 @@ -83,10 +83,6 @@ non-zero means that only the specified \fIversion\fR is acceptable. \fBTcl_InitStubs\fR returns a string containing the actual version of Tcl satisfying the request, or NULL if the Tcl version is not acceptable, does not support stubs, or any other error condition occurred. -.PP -If \fBTcl_InitStubs\fR is called with as first argument the -pseudo interpreter returned by \fBTcl_InitSubsystems(0)\fR, then -the \fIversion\fR and \fIexact\fR parameters have no effect. .SH "SEE ALSO" Tk_InitStubs .SH KEYWORDS diff --git a/generic/tcl.h b/generic/tcl.h index 451c6cc..4acc39d 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2432,7 +2432,7 @@ EXTERN const char *Tcl_InitSubsystems(Tcl_PanicProc *panicProc); */ #define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \ - (Tcl_InitSubsystems(Tcl_ConsolePanic), Tcl_CreateInterp)()) + (Tcl_InitSubsystems(Tcl_ConsolePanic), Tcl_CreateInterp())) EXTERN void Tcl_MainEx(int argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp, |