diff options
Diffstat (limited to 'library/platform')
-rw-r--r-- | library/platform/platform.tcl | 2 | ||||
-rw-r--r-- | library/platform/shell.tcl | 8 |
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]] |