diff options
| author | Pierre-Marie Pédrot | 2020-03-10 08:36:05 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-03-10 08:36:05 +0100 |
| commit | fea01ea28b9fdfd9fb5be91aba982710f55c3aba (patch) | |
| tree | 1fce7949fabdb4eb17a0627c94d3c611dfd34614 /kernel/safe_typing.ml | |
| parent | bab342d98d413a2b7a20da98c8dbec7616f54bce (diff) | |
| parent | 4ba8fabb14256cdc65e8440362d6697d9e97b7f4 (diff) | |
Merge PR #11774: [exn] [nit] Remove not very useful re-raises.
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 535b7de121..a37d04d82c 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -1303,12 +1303,7 @@ let start_library dir senv = required = senv.required } let export ?except ~output_native_objects senv dir = - let senv = - try join_safe_environment ?except senv - with e -> - let e = Exninfo.capture e in - CErrors.user_err ~hdr:"export" (CErrors.iprint e) - in + let senv = join_safe_environment ?except senv in assert(senv.future_cst = []); let () = check_current_library dir senv in let mp = senv.modpath in |