From 4ba8fabb14256cdc65e8440362d6697d9e97b7f4 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Sun, 1 Mar 2020 02:49:04 -0500
Subject: [exn] [nit] Remove not very useful re-raises.

Cleanup: IMHO most of the re-raises here are not worth it.
---
 kernel/safe_typing.ml | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'kernel/safe_typing.ml')

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
-- 
cgit v1.2.3