Runtime: fix caml_wrap_exception

ocaml-wasm · Mar 4, 2024 · a10b92f · a10b92f
1 parent f52a86a
commit a10b92f
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/runtime/wasm/jslib.wat b/runtime/wasm/jslib.wat
@@ -647,7 +647,10 @@
             (call $wrap
                (call $meth_call
                   (local.get $exn)
-                  (array.new_data $string $toString (i32.const 0) (i32.const 8))
+                  (call $unwrap
+                     (call $caml_jsstring_of_string
+                        (array.new_data $string $toString
+                           (i32.const 0) (i32.const 8))))
                   (extern.internalize (call $new_array (i32.const 0))))))))
 
    (func (export "caml_js_error_option_of_exception")