Fix internalAnyToExn

Author: DZakh

Diff for: jscomp/runtime/caml_js_exceptions.res

@@ -24,16 +24,6 @@
 
 exception Error = JsError
 
-let internalAnyToExn = (any: 'a): exn =>
-  if Obj.magic(any) && Js.typeof(Obj.magic(any)["RE_EXN_ID"]) === "string" {
-    any->Obj.magic
-  } else {
-    {
-      "RE_EXN_ID": "JsError",
-      "_1": any,
-    }->Obj.magic
-  }
-
 %%raw(`class RescriptError extends Error {
   constructor(message) {
     super(message);
@@ -50,6 +40,15 @@ let internalFromExtension = (_ext: 'a): exn => {
   %raw(`Object.assign(new RescriptError(_ext.RE_EXN_ID), _ext)`)
 }
 
+let internalAnyToExn = (any: 'a): exn =>
+  if Obj.magic(any) && Js.typeof(Obj.magic(any)["RE_EXN_ID"]) === "string" {
+    any->Obj.magic
+  } else {
+    let exn = internalMakeExn("JsError")
+    Obj.magic(exn)["_1"] = any
+    exn
+  }
+
 let as_js_exn = exn =>
   switch exn {
   | Error(t) => Some(t)

Diff for: lib/es6/caml_js_exceptions.js

@@ -4,17 +4,6 @@ import * as Caml_option from "./caml_option.js";
 
 let $$Error = "JsError";
 
-function internalAnyToExn(any) {
-  if (any && typeof any.RE_EXN_ID === "string") {
-    return any;
-  } else {
-    return {
-      RE_EXN_ID: "JsError",
-      _1: any
-    };
-  }
-}
-
 class RescriptError extends Error {
   constructor(message) {
     super(message);
@@ -31,6 +20,15 @@ function internalFromExtension(_ext) {
   return (Object.assign(new RescriptError(_ext.RE_EXN_ID), _ext));
 }
 
+function internalAnyToExn(any) {
+  if (any && typeof any.RE_EXN_ID === "string") {
+    return any;
+  }
+  let exn = new RescriptError("JsError");
+  exn._1 = any;
+  return exn;
+}
+
 function as_js_exn(exn) {
   if (exn.RE_EXN_ID === $$Error) {
     return Caml_option.some(exn._1);
@@ -40,9 +38,9 @@ function as_js_exn(exn) {
 
 export {
   $$Error,
-  internalAnyToExn,
   internalMakeExn,
   internalFromExtension,
+  internalAnyToExn,
   as_js_exn,
 }
 /*  Not a pure module */

Diff for: lib/js/caml_js_exceptions.js

@@ -4,17 +4,6 @@ let Caml_option = require("./caml_option.js");
 
 let $$Error = "JsError";
 
-function internalAnyToExn(any) {
-  if (any && typeof any.RE_EXN_ID === "string") {
-    return any;
-  } else {
-    return {
-      RE_EXN_ID: "JsError",
-      _1: any
-    };
-  }
-}
-
 class RescriptError extends Error {
   constructor(message) {
     super(message);
@@ -31,6 +20,15 @@ function internalFromExtension(_ext) {
   return (Object.assign(new RescriptError(_ext.RE_EXN_ID), _ext));
 }
 
+function internalAnyToExn(any) {
+  if (any && typeof any.RE_EXN_ID === "string") {
+    return any;
+  }
+  let exn = new RescriptError("JsError");
+  exn._1 = any;
+  return exn;
+}
+
 function as_js_exn(exn) {
   if (exn.RE_EXN_ID === $$Error) {
     return Caml_option.some(exn._1);
@@ -39,8 +37,8 @@ function as_js_exn(exn) {
 }
 
 exports.$$Error = $$Error;
-exports.internalAnyToExn = internalAnyToExn;
 exports.internalMakeExn = internalMakeExn;
 exports.internalFromExtension = internalFromExtension;
+exports.internalAnyToExn = internalAnyToExn;
 exports.as_js_exn = as_js_exn;
 /*  Not a pure module */