aboutsummaryrefslogtreecommitdiff
path: root/lib/pp.ml
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2020-03-10 08:36:05 +0100
committerPierre-Marie Pédrot2020-03-10 08:36:05 +0100
commitfea01ea28b9fdfd9fb5be91aba982710f55c3aba (patch)
tree1fce7949fabdb4eb17a0627c94d3c611dfd34614 /lib/pp.ml
parentbab342d98d413a2b7a20da98c8dbec7616f54bce (diff)
parent4ba8fabb14256cdc65e8440362d6697d9e97b7f4 (diff)
Merge PR #11774: [exn] [nit] Remove not very useful re-raises.
Reviewed-by: ppedrot
Diffstat (limited to 'lib/pp.ml')
-rw-r--r--lib/pp.ml6
1 files changed, 1 insertions, 5 deletions
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