diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-08 14:38:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-08 14:38:27 (GMT) |
| commit | d3fbbafe0819cd62a734173f1b994ba6e0554372 (patch) | |
| tree | dbbaee1b1b69fb66ce6aa6fae1fb17e6ec8f1a6a /library/tm.tcl | |
| parent | 72cd4c6a0763c30b3f3a4fceb1ed78ad63711cb5 (diff) | |
| parent | 7d0ca0e42091bc22762c16669fe03d54d1bfa013 (diff) | |
| download | tcl-d3fbbafe0819cd62a734173f1b994ba6e0554372.zip tcl-d3fbbafe0819cd62a734173f1b994ba6e0554372.tar.gz tcl-d3fbbafe0819cd62a734173f1b994ba6e0554372.tar.bz2 | |
Re-base to trunk. Now versioned as 8.7.0-alpha.2semver
Diffstat (limited to 'library/tm.tcl')
| -rw-r--r-- | library/tm.tcl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/library/tm.tcl b/library/tm.tcl index 66c56a1..ab33134 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -317,7 +317,6 @@ proc ::tcl::tm::Defaults {} { # Note that we're using [::list], not [list] because [list] means # something other than [::list] in this namespace. roots [::list \ - [file dirname [info library]] \ [file join [file dirname [file dirname $exe]] lib] \ ] @@ -326,6 +325,11 @@ proc ::tcl::tm::Defaults {} { } else { set sep ":" } + if {[info exists env(TCL${major}_TM_PATH)]} { + foreach p [split $env(TCL${major}_TM_PATH) $sep] { + path add $p + } + } for {set n $minor} {$n >= 0} {incr n -1} { foreach ev [::list \ TCL${major}.${n}_TM_PATH \ |