simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-08 03:47:57 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

ppx: call Stdlib.Printexc

Browse source 
This is because some libraries, i.e. Janestreet Core, override the
Printexc module.
This commit is contained in:
Vincent Bernardoff 2026-01-10 13:27:14 +01:00 • committed by Simon Cruanes
parent 5141d4bde4
commit 1c9a869148
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/ppx/ppx_trace.ml
View file

@ -89,9 +89,9 @@ let expand_top_let ~ctxt rec_flag (vbs : _ list) =
Trace_core.exit_span _trace_span; Trace_core.exit_span _trace_span;
res res
| exception exn -> | exception exn ->
let bt = Printexc.get_raw_backtrace () in let bt = Stdlib.Printexc.get_raw_backtrace () in
Trace_core.exit_span _trace_span; Trace_core.exit_span _trace_span;
Printexc.raise_with_backtrace exn bt] Stdlib.Printexc.raise_with_backtrace exn bt]
in in
let tr_vb (vb : value_binding) : value_binding = let tr_vb (vb : value_binding) : value_binding =