diff options
| author | nijtmans <nijtmans> | 2010-06-14 13:48:25 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-06-14 13:48:25 (GMT) |
| commit | 0e72c9c6656401b476b0cf11c125d5bff87f8b93 (patch) | |
| tree | ac5aca566d3f4a32668e610f1d2e6cd4ab390af6 /library/tm.tcl | |
| parent | e16e1505cda7b4046f3080614042121bf8ce222f (diff) | |
| download | tcl-0e72c9c6656401b476b0cf11c125d5bff87f8b93.zip tcl-0e72c9c6656401b476b0cf11c125d5bff87f8b93.tar.gz tcl-0e72c9c6656401b476b0cf11c125d5bff87f8b93.tar.bz2 | |
Spacing and style fixes
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 907f9cf..ce8a013 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -352,11 +352,11 @@ proc ::tcl::tm::roots {paths} { set p [file join $pa tcl$major] for {set n $minor} {$n >= 0} {incr n -1} { set px [file join $p ${major}.${n}] - if {![interp issafe]} { set px [file normalize $px] } + if {![interp issafe]} {set px [file normalize $px]} path add $px } set px [file join $p site-tcl] - if {![interp issafe]} { set px [file normalize $px] } + if {![interp issafe]} {set px [file normalize $px]} path add $px } return @@ -365,4 +365,4 @@ proc ::tcl::tm::roots {paths} { # Initialization. Set up the default paths, then insert the new handler into # the chain. -if {![interp issafe]} { ::tcl::tm::Defaults } +if {![interp issafe]} {::tcl::tm::Defaults} |