Runtime: fix eval to work with any JavaScript exception

ocaml-wasm · Mar 4, 2024 · 4e1fa99 · 4e1fa99
1 parent 3da57a7
commit 4e1fa99
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/tests/test_poly_compare.ml b/lib/tests/test_poly_compare.ml
@@ -102,7 +102,7 @@ let%expect_test "object comparison" =
   assert (compare s1 s1 = 0);
   assert (compare s1 s2 = 1);
   assert (compare s2 s1 = 1)
-[@@expect.uncaught_exn {| "Assert_failure lib/tests/test_poly_compare.ml:100:2" |}]
+[@@expect.uncaught_exn {| (Invalid_argument "compare: abstract value") |}]
 
 let%expect_test "poly compare" =
   let l =

diff --git a/runtime/wasm/runtime.js b/runtime/wasm/runtime.js
@@ -378,5 +378,5 @@
             event.error&&caml_handle_uncaught_exception(event.error))
     }
     await _initialize();
-})(((joo_global_object,jsoo_exports,globalThis)=>(x)=>eval(x))(globalThis,globalThis?.module?.exports||globalThis,globalThis),
+})(((joo_global_object,jsoo_exports,globalThis)=>(x)=>eval("("+x+")"))(globalThis,globalThis?.module?.exports||globalThis,globalThis),
    PRIMITIVES, STRINGS);