diff --git a/Win/PmCleanSystem.icl b/Win/PmCleanSystem.icl index 703d49ac050092081551250d9cc43cf412c6f870..c7a97ecf02540ef69fcd5715b3cef3dbf8b84fe6 100644 --- a/Win/PmCleanSystem.icl +++ b/Win/PmCleanSystem.icl @@ -1012,8 +1012,8 @@ create_inheritable_file file_name os [SECURITY_ATTRIBUTES_nLength_int_offset] = SECURITY_ATTRIBUTES_size_bytes, [SECURITY_ATTRIBUTES_bInheritHandle_int_offset] = 1}; = IF_INT_64_OR_32 - (CreateFile_32 file_name GENERIC_WRITE 0 security_attributes CREATE_ALWAYS FILE_ATTRIBUTE_NORMAL 0 os) - (CreateFile file_name GENERIC_WRITE 0 security_attributes CREATE_ALWAYS FILE_ATTRIBUTE_NORMAL 0 os); + (CreateFile file_name GENERIC_WRITE 0 security_attributes CREATE_ALWAYS FILE_ATTRIBUTE_NORMAL 0 os) + (CreateFile_32 file_name GENERIC_WRITE 0 security_attributes CREATE_ALWAYS FILE_ATTRIBUTE_NORMAL 0 os); create_process :: !*{#Char} !{#Char} !HANDLE !*OSToolbox -> (!Bool,!{#Int},!*OSToolbox) create_process command_line current_directory std_error_handle os