fix calls of QuitCleanCompiler

Pm/PmDriver.icl

@@ -386,7 +386,7 @@ step intr (DComp force dircache (AsyncWin [] {win_compiler_process_ids}) Nil ds)
 	# project				= PR_SetBuilt ds.modpaths ds.project	// removes unused modules
 	# (modpaths,project)	= PR_GetModulenames True IclMod project
 	# ds					= {ds & modpaths = modpaths, project = project}
-	# ps = QuitCleanCompiler True win_compiler_process_ids ps;
+	# ps = {ps & io=QuitCleanCompiler True win_compiler_process_ids ps.io};
 	# ps					= showInfo (Level1 "Generating...") ps
 	# (paths,ds)			= ds!modpaths
 	= step intr (DGene paths SyncCodeGeneration ds) ps
@@ -534,7 +534,7 @@ step intr state=:(DComp force dircache compinfo=:(AsyncWin _ _) rest ds) ps
 				= (DComp force dircache (AsyncWin current {win_max_n_processes=win_max_n_processes,win_compiler_process_ids=win_compiler_process_ids}) (Concat deps todo) ds, ps)
 			// not ok
 				# (paths,ds)	= ds!modpaths
-				# ps = QuitCleanCompiler True win_compiler_process_ids ps;
+				# ps = {ps & io=QuitCleanCompiler True win_compiler_process_ids ps.io};
 				= (DGene paths SyncCodeGeneration ds, ps)
 			where
 				removeFromCurrent :: Int [CurrentlyCompiled] -> (CurrentlyCompiled, [CurrentlyCompiled])
@@ -565,7 +565,7 @@ step intr state=:(DComp force dircache compinfo=:(AsyncWin _ _) rest ds) ps
 			# ds = {ds & ok = ok}
 			| not ok
 				#! (paths,ds)	= ds!modpaths
-				# ps = QuitCleanCompiler True win_compiler_process_ids ps;
+				# ps = {ps & io=QuitCleanCompiler True win_compiler_process_ids ps.io};
 				= (DGene paths SyncCodeGeneration ds, ps)
 			= start_compilations (DComp force dircache compinfo rest ds) ps
 		start_compilations state=:(DComp force dircache (AsyncWin [] _) Nil ds) ps