diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-12-12 23:00:08 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-12-12 23:00:08 (GMT) |
| commit | cb4e5f7e2d63b9da22c4dc5daccfa3be0a563df6 (patch) | |
| tree | 7c3c09d8fb0686102adbd9b5dbbf98f61c838b48 | |
| parent | 2ca3685e1bc5ab2a213ebe4b55e087954e122ff2 (diff) | |
| download | tcl-cb4e5f7e2d63b9da22c4dc5daccfa3be0a563df6.zip tcl-cb4e5f7e2d63b9da22c4dc5daccfa3be0a563df6.tar.gz tcl-cb4e5f7e2d63b9da22c4dc5daccfa3be0a563df6.tar.bz2 | |
change "procedure" to "function" for (slightly) greater clarity
| -rw-r--r-- | generic/tclInterp.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 364416a..b0d03ad 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInterp.c,v 1.61 2005/10/10 17:33:26 dkf Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.62 2005/12/12 23:00:08 dkf Exp $ */ #include "tclInt.h" @@ -18,7 +18,7 @@ /* * A pointer to a string that holds an initialization script that if non-NULL * is evaluated in Tcl_Init() prior to the built-in initialization script - * above. This variable can be modified by the procedure below. + * above. This variable can be modified by the function below. */ static char *tclPreInitScript = NULL; @@ -181,7 +181,7 @@ typedef struct ScriptLimitCallbackKey { } ScriptLimitCallbackKey; /* - * Prototypes for local static procedures: + * Prototypes for local static functions: */ static int AliasCreate(Tcl_Interp *interp, @@ -276,7 +276,7 @@ TclSetPreInitScript( * * Tcl_Init -- * - * This procedure is typically invoked by Tcl_AppInit procedures to find + * This function is typically invoked by Tcl_AppInit functions to find * and source the "init.tcl" script, which should exist somewhere on the * Tcl library path. * @@ -338,7 +338,7 @@ Tcl_Init( * will be set as the value of tcl_library. * * Note that this entire search mechanism can be bypassed by defining an - * alternate tclInit procedure before calling Tcl_Init(). + * alternate tclInit function before calling Tcl_Init(). */ return Tcl_Eval(interp, @@ -536,7 +536,7 @@ InterpInfoDeleteProc( * * Tcl_InterpObjCmd -- * - * This procedure is invoked to process the "interp" Tcl command. See the + * This function is invoked to process the "interp" Tcl command. See the * user documentation for details on what it does. * * Results: @@ -1666,9 +1666,9 @@ AliasList( * * AliasObjCmd -- * - * This is the procedure that services invocations of aliases in a slave + * This is the function that services invocations of aliases in a slave * interpreter. One such command exists for each alias. When invoked, - * this procedure redirects the invocation to the target command in the + * this function redirects the invocation to the target command in the * master interpreter as designated by the Alias record associated with * this command. * |