WIP

Author: hhugo

compiler/tests-toplevel/dune

@@ -1,6 +1,6 @@
 (executables
  (names test_toplevel)
- (libraries js_of_ocaml-compiler.dynlink compiler-libs.toplevel)
+ (libraries js_of_ocaml js_of_ocaml-compiler.dynlink compiler-libs.toplevel)
  (flags
   (:standard -linkall))
  (js_of_ocaml

compiler/tests-toplevel/test_toplevel.ml

@@ -1,3 +1,12 @@
+let () =
+  Printexc.register_printer (fun x ->
+      match Js_of_ocaml.Js_error.of_exn x with
+      | None -> None
+      | Some e ->
+          if true
+          then Js_of_ocaml.Js_error.raise_ e
+          else Some (Js_of_ocaml.Js_error.message e))
+
 let () =
   let content =
     {|