diff options
| author | nijtmans <nijtmans> | 2009-11-18 21:23:20 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2009-11-18 21:23:20 (GMT) |
| commit | e732dcbc33f07f700918fed16ed2a8d62d5d3500 (patch) | |
| tree | 4d8bf7878ee2bf754c56b86cc47d868c3400ac5b /library/tm.tcl | |
| parent | 76095248c12bff189c0c8c073ca52ed6e384b87c (diff) | |
| download | tcl-e732dcbc33f07f700918fed16ed2a8d62d5d3500.zip tcl-e732dcbc33f07f700918fed16ed2a8d62d5d3500.tar.gz tcl-e732dcbc33f07f700918fed16ed2a8d62d5d3500.tar.bz2 | |
Eliminate "then" keyword
Diffstat (limited to 'library/tm.tcl')
| -rw-r--r-- | library/tm.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/tm.tcl b/library/tm.tcl index ca0bbf7..90f8296 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -181,7 +181,7 @@ proc ::tcl::tm::list {} { proc ::tcl::tm::UnknownHandler {original name args} { # Import the list of paths to search for packages in module form. - # Import the pattern used to check package names in detail. + # Import the pattern used to check package names in detail. variable paths variable pkgpattern @@ -263,7 +263,7 @@ proc ::tcl::tm::UnknownHandler {original name args} { if { ($pkgname eq $name) && [package vsatisfies $pkgversion {*}$args] - } then { + } { set satisfied 1 # We do not abort the loop, and keep adding provide @@ -357,7 +357,7 @@ proc ::tcl::tm::roots {paths} { } set px [file join $p site-tcl] if {![interp issafe]} { set px [file normalize $px] } - path add $px + path add $px } return } |