More annoying compatibility degrading the experience for everyone

Author: panglesd

src/utils/odoc_utils.ml

@@ -86,17 +86,13 @@ module Fun = struct
 
   let protect ~(finally : unit -> unit) work =
     let finally_no_exn () =
-      try finally ()
-      with e ->
-        let bt = Printexc.get_raw_backtrace () in
-        Printexc.raise_with_backtrace (Finally_raised e) bt
+      try finally () with e -> raise (Finally_raised e)
     in
     match work () with
     | result ->
         finally_no_exn ();
         result
     | exception work_exn ->
-        let work_bt = Printexc.get_raw_backtrace () in
         finally_no_exn ();
-        Printexc.raise_with_backtrace work_exn work_bt
+        raise work_exn
 end