diff options
| author | Maxime Dénès | 2019-04-03 18:38:10 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-04-16 19:50:53 +0200 |
| commit | 3c785936a0b56623f7c3512fa861a7a9823ad495 (patch) | |
| tree | 74d5a7185430cb1c7c7399d05d708ebe6fc16635 /library | |
| parent | 4b9119d8090e366ecd2e803ad30a9dd839bc8ec9 (diff) | |
Better error message when OCaml compiler not found for native compute
Fixes #6699
Diffstat (limited to 'library')
| -rw-r--r-- | library/library.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/library/library.ml b/library/library.ml index 37dadadb76..04e38296d9 100644 --- a/library/library.ml +++ b/library/library.ml @@ -718,8 +718,7 @@ let save_library_to ?todo ~output_native_objects dir f otab = (* Writing native code files *) if output_native_objects then let fn = Filename.dirname f'^"/"^Nativecode.mod_uid_of_dirpath dir in - if not (Nativelib.compile_library dir ast fn) then - user_err Pp.(str "Could not compile the library to native code.") + Nativelib.compile_library dir ast fn with reraise -> let reraise = CErrors.push reraise in let () = Feedback.msg_warning (str "Removed file " ++ str f') in |