diff options
-rw-r--r-- | driver/Driver.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/driver/Driver.ml b/driver/Driver.ml index 998c67ff..353a7176 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -537,6 +537,6 @@ let _ = if (not nolink) && linker_args <> [] then begin linker (output_filename_default "a.out") linker_args end; - Cerrors.check_errors () + if Cerrors.check_errors () then exit 2 with Sys_error msg -> eprintf "I/O error: %s.\n" msg; exit 2 |