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. --- lib/pp.ml | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'lib/pp.ml') diff --git a/lib/pp.ml b/lib/pp.ml index 1bd160dcda..f9b6ef20bf 100644 --- a/lib/pp.ml +++ b/lib/pp.ml @@ -201,11 +201,7 @@ let pp_with ft pp = pp_cmd s; pp_close_tag ft () [@warning "-3"] in - try pp_cmd pp - with reraise -> - let reraise = Exninfo.capture reraise in - let () = Format.pp_print_flush ft () in - Exninfo.iraise reraise + pp_cmd pp (* If mixing some output and a goal display, please use msg_warning, so that interfaces (proofgeneral for example) can easily dispatch -- cgit v1.2.3