summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-12-12 23:00:08 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-12-12 23:00:08 (GMT)
commitcb4e5f7e2d63b9da22c4dc5daccfa3be0a563df6 (patch)
tree7c3c09d8fb0686102adbd9b5dbbf98f61c838b48
parent2ca3685e1bc5ab2a213ebe4b55e087954e122ff2 (diff)
downloadtcl-cb4e5f7e2d63b9da22c4dc5daccfa3be0a563df6.zip
tcl-cb4e5f7e2d63b9da22c4dc5daccfa3be0a563df6.tar.gz
tcl-cb4e5f7e2d63b9da22c4dc5daccfa3be0a563df6.tar.bz2
change "procedure" to "function" for (slightly) greater clarity
-rw-r--r--generic/tclInterp.c16
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.
*