summaryrefslogtreecommitdiffstats
path: root/library/auto.tcl
diff options
context:
space:
mode:
authorpooryorick <com.digitalsmarties@pooryorick.com>2023-04-12 09:35:08 (GMT)
committerpooryorick <com.digitalsmarties@pooryorick.com>2023-04-12 09:35:08 (GMT)
commit3b742b785e159e8a3b9e25c985fd67ab028a19d2 (patch)
tree9f339863ba93d52279c75d3bb1967f4395f9a604 /library/auto.tcl
parent6bdd668a7ce4815e5beb82b3fe15262f99d44987 (diff)
downloadtcl-3b742b785e159e8a3b9e25c985fd67ab028a19d2.zip
tcl-3b742b785e159e8a3b9e25c985fd67ab028a19d2.tar.gz
tcl-3b742b785e159e8a3b9e25c985fd67ab028a19d2.tar.bz2
Correct spelling errors in comments and documentation, but also non-comment
corrections in history.tcl and tcltest.test.
Diffstat (limited to 'library/auto.tcl')
-rw-r--r--library/auto.tcl8
1 files changed, 4 insertions, 4 deletions
diff --git a/library/auto.tcl b/library/auto.tcl
index 7d23b6e..f998b45 100644
--- a/library/auto.tcl
+++ b/library/auto.tcl
@@ -119,7 +119,7 @@ proc tcl_findLibrary {basename version patch initScript enVarName varName} {
$basename$patch library]
}
}
- # uniquify $dirs in order
+ # make $dirs unique, preserving order
array set seen {}
foreach i $dirs {
# Make sure $i is unique under normalization. Avoid repeated [source].
@@ -317,7 +317,7 @@ namespace eval auto_mkindex_parser {
$parser expose eval
$parser invokehidden rename eval _%@eval
- # Install all the registered psuedo-command implementations
+ # Install all the registered pseudo-command implementations
foreach cmd $initCommands {
eval $cmd
@@ -570,7 +570,7 @@ auto_mkindex_parser::hook {
load {} tbcload $auto_mkindex_parser::parser
# AUTO MKINDEX: tbcload::bcproc name arglist body
- # Adds an entry to the auto index list for the given pre-compiled
+ # Adds an entry to the auto index list for the given precompiled
# procedure name.
auto_mkindex_parser::commandInit tbcload::bcproc {name args} {
@@ -625,7 +625,7 @@ auto_mkindex_parser::command namespace {op args} {
}
regsub -all ::+ $name :: name
}
- # create artifical proc to force an entry in the tclIndex
+ # create artificial proc to force an entry in the tclIndex
$parser eval [list ::proc $name {} {}]
}
}