From a10ceedaec45bd6c5cb247ee80ad91d59e87cda3 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Mon, 5 Sep 2022 19:42:00 +0000
Subject: Fix some typos in comments.

---
 generic/tclArithSeries.c | 12 ++++++------
 generic/tclArithSeries.h |  2 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/generic/tclArithSeries.c b/generic/tclArithSeries.c
index 8a9037a..93177a7 100755
--- a/generic/tclArithSeries.c
+++ b/generic/tclArithSeries.c
@@ -93,7 +93,7 @@ const Tcl_ObjType tclArithSeriesType = {
  *
  * 	The length of the list generated by the given range,
  * 	that may be zero.
- * 	The function returns -1 if the list is of length infiite.
+ * 	The function returns -1 if the list is of length infinite.
  *
  * Side effects:
  *
@@ -210,7 +210,7 @@ TclNewArithSeriesDbl(double start, double end, double step, Tcl_WideInt len)
  *
  * assignNumber --
  *
- *	Create the approprite Tcl_Obj value for the given numeric values.
+ *	Create the appropriate Tcl_Obj value for the given numeric values.
  *      Used locally only for decoding [lseq] numeric arguments.
  *	refcount = 0.
  *
@@ -384,14 +384,14 @@ TclArithSeriesObjStep(
  * TclArithSeriesObjIndex --
  *
  *	Returns the element with the specified index in the list
- *	represented by the specified Arithmentic Sequence object.
+ *	represented by the specified Arithmetic Sequence object.
  *	If the index is out of range, TCL_ERROR is returned,
  *	otherwise TCL_OK is returned and the integer value of the
  *	element is stored in *element.
  *
  * Results:
  *
- * 	TCL_OK on succes, TCL_ERROR on index out of range.
+ * 	TCL_OK on success, TCL_ERROR on index out of range.
  *
  * Side Effects:
  *
@@ -426,7 +426,7 @@ TclArithSeriesObjIndex(Tcl_Obj *arithSeriesPtr, Tcl_WideInt index, Tcl_Obj **ele
  *
  * TclArithSeriesObjLength
  *
- *	Returns the length of the arithmentic series.
+ *	Returns the length of the arithmetic series.
  *
  * Results:
  *
@@ -724,7 +724,7 @@ TclArithSeriesObjRange(
      */
 
     /*
-     * Even if nothing below cause any changes, we still want the
+     * Even if nothing below causes any changes, we still want the
      * string-canonizing effect of [lrange 0 end].
      */
 
diff --git a/generic/tclArithSeries.h b/generic/tclArithSeries.h
index 5d014d0..f855c22 100644
--- a/generic/tclArithSeries.h
+++ b/generic/tclArithSeries.h
@@ -11,7 +11,7 @@
  */
 
 /*
- * The structure used for the AirthSeries internal representation.
+ * The structure used for the ArithSeries internal representation.
  * Note that the len can in theory be always computed by start,end,step
  * but it's faster to cache it inside the internal representation.
  */
-- 
cgit v0.12