diff options
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 \ |