use DirSeparator and DirSeparatorString from Platform instead of dirseparator from StdSystem

Pm/PmDriver.icl

 implementation module PmDriver
 
 import StdArray, StdBool, StdList, StdMisc, StdEnum
-import StdPSt, StdSystem, StdPStClass, StdTimer
-import StdWindow
 
 import UtilNewlinesFile, UtilIO
 
@@ -23,7 +21,7 @@ import PmAbcMagic
 import PmFileInfo
 import PmDirCache
 
-import interrupt,Platform
+import Platform
 from StdLibMisc import :: Date{..}, :: Time{..}
 
 //from dodebug import trace_n`
@@ -718,7 +716,7 @@ step intr (DLink ds=:{ok, newpaths, fileinfo, libsinfo, modpaths, abccache, proj
 	# ({be_verbose},ps)			= getPrefs ps
 	# ps						= HandleDCErrors be_verbose errs warns ps
 	# (ok,full_sys0,_,abcPathsCache) = DC_Search (MakeABCPathname System) abcPathsCache
-	# full_sys					= full_sys0 +++ {dirseparator} +++ (MakeABCPathname System)
+	# full_sys					= full_sys0 +++ DirSeparatorString +++ (MakeABCPathname System)
 	# full_sys`					= MakeImpPathname full_sys
 	
 	# ao						= PR_GetApplicationOptions project
@@ -749,7 +747,7 @@ step intr (DLink ds=:{ok, newpaths, fileinfo, libsinfo, modpaths, abccache, proj
 								// if out of date regenerate
 								= GenCodeTheProjectModule genabc True CodeGeneration abcpath abccache fileinfo project ps
 	# (sys_date, ps)			= accFiles (FModified full_sys) ps
-	# sys_obj					= full_sys0 +++ {dirseparator} +++ (MakeObjPathname tp System)
+	# sys_obj					= full_sys0 +++ DirSeparatorString +++ (MakeObjPathname tp System)
 	# (sys_obj_date,ps)			= accFiles (FModified sys_obj) ps
 	# sys_obj_date_time			= DATEtoDateTime sys_obj_date
 	# (abcPathsCache,ps)		= case genabc of
@@ -1509,7 +1507,7 @@ where
 
 MakeOptionsName :: !.String !Processor -> String
 MakeOptionsName path processor
-	= path`+++{dirseparator}+++"Clean System Files"+++{dirseparator}+++"_"+++name+++MakeObjPathname processor "_options"
+	= path`+++DirSeparatorString+++"Clean System Files"+++DirSeparatorString+++"_"+++name+++MakeObjPathname processor "_options"
 where
 	path` = RemoveFilename path
 	name  = RemoveSuffix` (RemovePath path)
@@ -1572,7 +1570,7 @@ GetPathNames :: !(List String) !(List String) !*DirCache -> (.Bool,List String,!
 GetPathNames Nil acc cache = (True, acc, cache)
 GetPathNames (fn:!fns) acc cache
 	# (ok,pn,_,cache) = DC_Search fn cache
-	| ok = GetPathNames fns (pn +++ {dirseparator} +++ fn :! acc) cache
+	| ok = GetPathNames fns (pn +++ DirSeparatorString +++ fn :! acc) cache
 	= (False, (fn :! Nil), cache)
 
 // Lookup Module Paths in Directory Cache

Win/PmCleanSystem.icl

 implementation module PmCleanSystem
 
 import StdArray, StdBool, StdChar, StdFunc, StdInt, StdList, StdEnum
-import StdSystem, StdPStClass, StdMaybe
+import StdMaybe
 from StdMisc import undef
 
+from Platform import DirSeparator,DirSeparatorString
+
 import Directory
 
 import PmCompilerOptions, UtilStrictLists
@@ -396,7 +398,7 @@ errors_file_path tooltempdir slot
 
 file_path :: String String Int -> String
 file_path dir base_name slot
-	=	dir +++ toString dirseparator +++ base_name +++ (if (slot == 0) "" (toString slot))
+	=	dir +++ DirSeparatorString +++ base_name +++ (if (slot == 0) "" (toString slot))
 
 ConcatenatePath :: (List Pathname) -> String
 /* old version
@@ -568,7 +570,7 @@ CodeGen cgen` used_compiler_process_ids wf genAsmOrCode path timeprofile cgo tp
 //								+++ " " +++ (watcom_quoted_string path_without_suffix)
 								+++ " " +++ (quoted_string path_without_suffix)
 
-  		errorsfilename		= tooltempdir +++ toString dirseparator +++ "errors"
+  		errorsfilename		= tooltempdir +++ DirSeparatorString +++ "errors"
 		(didit,exit_code,_)	= trace_n errorsfilename CallProcess command [] cgendir "" "" errorsfilename 99
 	| not didit
 		= (objpath,False,compiler_process_ids,wf [  "Error: Unable to run code generator: "+++cgen
@@ -648,7 +650,7 @@ Link linker` winfun path
 	  	, stack_size				= ss
 		, gen_dll					= gen_dll
 		, dll_names					= dll_syms
-		, dynamics_path				= startupdir +++. {dirseparator} +++. dynlstr
+		, dynamics_path				= startupdir +++. DirSeparatorString +++. dynlstr
 	  	}
 	# linkerpath					= RemoveFilename linker
 //	# linkoptspath					= MakeFullPathname linkerpath "linkopts"
@@ -676,9 +678,9 @@ Link linker` winfun path
 
 mangleLinker linkstr` startupdir
 	# (linkstr`,opts)		= splitOptions linkstr`
-	# (shortOK,linkstr)		= GetShortPathName (startupdir +++ toString dirseparator +++ linkstr` +++ "\0")
+	# (shortOK,linkstr)		= GetShortPathName (startupdir +++ DirSeparatorString +++ linkstr` +++ "\0")
 	| not shortOK
-		# line				= "Error: Unable to get short path name '" +++ (startupdir +++ toString dirseparator +++ linkstr`) +++ "'."
+		# line				= "Error: Unable to get short path name '" +++ (startupdir +++ DirSeparatorString +++ linkstr`) +++ "'."
 		= (False,line,"")
 	# linkcom = linkstr % (0, size linkstr - 2) +++ opts
 	# linkdir = RemoveFilename (linkstr % (0, size linkstr - 2))