Use $::tcl_platform(pathSeparator) in stead of constructiong $sep

tcltk · Oct 15, 2024 · b0e6078 · b0e6078
1 parent fe4b5d7
commit b0e6078
Showing 1 changed file with 1 addition and 6 deletions.
diff --git a/library/tm.tcl b/library/tm.tcl
@@ -326,18 +326,13 @@ proc ::tcl::tm::Defaults {} {
 	    [file join [file dirname [file dirname $exe]] lib] \
 	    ]
 
-    if {$tcl_platform(platform) eq "windows"} {
-	set sep ";"
-    } else {
-	set sep ":"
-    }
     for {set n $minor} {$n >= 0} {incr n -1} {
 	foreach ev [::list \
 			TCL${major}.${n}_TM_PATH \
 			TCL${major}_${n}_TM_PATH \
 	] {
 	    if {![info exists env($ev)]} continue
-	    foreach p [split $env($ev) $sep] {
+	    foreach p [split $env($ev) $::tcl_platform(pathSeparator)] {
 		path add $p
 	    }
 	}