Commit 215682d0 authored by Mart Lubbers's avatar Mart Lubbers

Fix codestyle throughout Unix/PmCleanSystem.icl

parent 6cb64fed
......@@ -162,7 +162,7 @@ parse_result_number i result_string
| c=='-'
= 0 - parse_result_number (i+1) result_string
= abort "parse_result_number failed\n"
where
where
parse_result_number2 i n result_string
| i<size result_string
# c=result_string.[i]
......@@ -240,7 +240,7 @@ QuitCleanCompiler async compiler_process_ids world
| async
= exit_compilers compiler_process_ids world
= world
where
where
exit_compilers [compiler:compilers] world
= exit_compilers compilers (exit_clean_compiler compiler world)
exit_compilers [] world
......@@ -347,7 +347,7 @@ wait_for_finished_code_generator process_ids ps
| wtermsig<>0
= abort "code generator exited abnormally\n"
= (process_n,result,ps)
where
where
find_process_id_index i w_pid pids
| i<size pids
| pids.[i]==w_pid
......@@ -756,7 +756,7 @@ add_options_string_to_args i s args
= args
# end_i = skip_to_space_or_tab (i+1) s
= [s % (first_i,end_i-1) : add_options_string_to_args end_i s args]
where
where
skip_spaces_and_tabs i s
| i<size s
# c=s.[i]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment