Correct spelling errors in comments and documentation, but also non-comment

corrections in history.tcl and tcltest.test.

2 files changed, 5 insertions, 5 deletions

diff --git a/library/platform/platform.tcl b/library/platform/platform.tcl
index acaebf2..63d4d76 100644
--- a/library/platform/platform.tcl
+++ b/library/platform/platform.tcl
@@ -265,7 +265,7 @@ proc ::platform::LibcVersion {base _->_ vv} {
 
     set libc [lindex $libclist 0]
 
-    # Try executing the library first. This should suceed
+    # Try executing the library first. This should succeed
     # for a glibc library, and return the version
     # information.
 
diff --git a/library/platform/shell.tcl b/library/platform/shell.tcl
index 6eb9691..1e43409 100644
--- a/library/platform/shell.tcl
+++ b/library/platform/shell.tcl
@@ -27,7 +27,7 @@ proc ::platform::shell::generic {shell} {
     LOCATE base out
 
     set     code {}
-    # Forget any pre-existing platform package, it might be in
+    # Forget any preexisting platform package, it might be in
     # conflict with this one.
     lappend code {package forget platform}
     # Inject our platform package
@@ -52,7 +52,7 @@ proc ::platform::shell::identify {shell} {
     LOCATE base out
 
     set     code {}
-    # Forget any pre-existing platform package, it might be in
+    # Forget any preexisting platform package, it might be in
     # conflict with this one.
     lappend code {package forget platform}
     # Inject our platform package
@@ -99,14 +99,14 @@ proc ::platform::shell::LOCATE {bv ov} {
     upvar 1 $bv base $ov out
 
     # Locate the platform package for injection into the specified
-    # shell. We are using package management to find it, whereever it
+    # shell. We are using package management to find it, wherever it
     # is, instead of using hardwired relative paths. This allows us to
     # install the two packages as TMs without breaking the code
     # here. If the found package is wrapped we copy the code somewhere
     # where the spawned shell will be able to read it.
 
     # This code is brittle, it needs has to adapt to whatever changes
-    # are made to the TM code, i.e. the provide statement generated by
+    # are made to the TM code, i.e. the "provide" statement generated by
     # tm.tcl
 
     set pl [package ifneeded platform [package require platform]]