snapshot js_exn changes

Author: bobzhang

jscomp/main/builtin_cmi_datasets.ml

@@ -45,11 +45,9 @@ external makeError : string -> error = "Error" [@@bs.new]
 external isCamlExceptionOrOpenVariant : 
   'a -> bool = "caml_is_extension"
 
-let anyToExnInternal obj =
-  if isCamlExceptionOrOpenVariant obj then
-    (Obj.magic obj : exn)
-  else
-    Error ((Obj.magic obj) : t)
+let anyToExnInternal x = 
+    Caml_js_exceptions.internalToOCamlException (Obj.repr x)
+  
 
 let raiseError str = 
   raise (Obj.magic (makeError str : error) : exn)

jscomp/main/builtin_cmj_datasets.ml

@@ -2,6 +2,8 @@
 
 import * as Caml_js_exceptions from "./caml_js_exceptions.mjs";
 
+var anyToExnInternal = Caml_js_exceptions.internalToOCamlException;
+
 function raiseError(str) {
   throw new Error(str);
 }
@@ -34,6 +36,7 @@ var $$Error$1 = Caml_js_exceptions.$$Error;
 
 export {
   $$Error$1 as $$Error,
+  anyToExnInternal ,
   raiseError ,
   raiseEvalError ,
   raiseRangeError ,

jscomp/others/js_exn.ml

@@ -2,6 +2,8 @@
 
 var Caml_js_exceptions = require("./caml_js_exceptions.js");
 
+var anyToExnInternal = Caml_js_exceptions.internalToOCamlException;
+
 function raiseError(str) {
   throw new Error(str);
 }
@@ -33,6 +35,7 @@ function raiseUriError(str) {
 var $$Error$1 = Caml_js_exceptions.$$Error;
 
 exports.$$Error = $$Error$1;
+exports.anyToExnInternal = anyToExnInternal;
 exports.raiseError = raiseError;
 exports.raiseEvalError = raiseEvalError;
 exports.raiseRangeError = raiseRangeError;