diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-28 12:54:18 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-28 12:54:18 (GMT) |
commit | 0eccd1277574ba27f4bc930b1df2bc4e87f5e371 (patch) | |
tree | 9d9498e9b1177c0af9646bd1ababb2854370df3d /generic/tclInterp.c | |
parent | 8d556345fd97eb9d60d2e7e1e372e1cc52939ff5 (diff) | |
parent | ef9154f1436449e65af48e6356b80877668e349e (diff) | |
download | tcl-0eccd1277574ba27f4bc930b1df2bc4e87f5e371.zip tcl-0eccd1277574ba27f4bc930b1df2bc4e87f5e371.tar.gz tcl-0eccd1277574ba27f4bc930b1df2bc4e87f5e371.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclInterp.c')
-rw-r--r-- | generic/tclInterp.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index e1979e0..d448c3b 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -281,7 +281,7 @@ static Tcl_ObjCmdProc NRChildCmd; /* *---------------------------------------------------------------------- * - * TclSetPreInitScript -- + * Tcl_SetPreInitScript -- * * This routine is used to change the value of the internal variable, * tclPreInitScript. @@ -296,12 +296,12 @@ static Tcl_ObjCmdProc NRChildCmd; */ const char * -TclSetPreInitScript( +Tcl_SetPreInitScript( const char *string) /* Pointer to a script. */ { const char *prevString = tclPreInitScript; tclPreInitScript = string; - return(prevString); + return prevString; } /* |