From 50a2c67b377984d8617487f4fd0ee4a84aa920eb Mon Sep 17 00:00:00 2001 From: Vincent Bernardoff Date: Sat, 10 Jan 2026 13:27:14 +0100 Subject: [PATCH] ppx: call Stdlib.Printexc This is because some libraries, i.e. Janestreet Core, override the Printexc module. --- src/ppx/ppx_trace.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/ppx/ppx_trace.ml b/src/ppx/ppx_trace.ml index f6327da..b8c7d3e 100644 --- a/src/ppx/ppx_trace.ml +++ b/src/ppx/ppx_trace.ml @@ -89,9 +89,9 @@ let expand_top_let ~ctxt rec_flag (vbs : _ list) = Trace_core.exit_span _trace_span; res | exception exn -> - let bt = Printexc.get_raw_backtrace () in + let bt = Stdlib.Printexc.get_raw_backtrace () in Trace_core.exit_span _trace_span; - Printexc.raise_with_backtrace exn bt] + Stdlib.Printexc.raise_with_backtrace exn bt] in let tr_vb (vb : value_binding) : value_binding =