[compiler] Print backtraces on Failure too.

We keep the case as to not to disturbe the printing, but not sure it is worth it.
ocsigen · Sep 30, 2024 · 543d663 · 543d663
1 parent bd764f9
commit 543d663
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/compiler/bin-js_of_ocaml/js_of_ocaml.ml b/compiler/bin-js_of_ocaml/js_of_ocaml.ml
@@ -109,7 +109,9 @@ let () =
         comp;
       exit 1
   | Failure s ->
+      let backtrace = Printexc.get_backtrace () in
       Format.eprintf "%s: Error: %s@." Sys.argv.(0) s;
+      prerr_string backtrace;
       exit 1
   | exc ->
       let backtrace = Printexc.get_backtrace () in