From 683da3626c7c950d9d1f18d86d5803acca925ea5 Mon Sep 17 00:00:00 2001
From: Hugo Heuzard <hugo.heuzard@gmail.com>
Date: Thu, 20 Apr 2023 18:31:53 +0200
Subject: [PATCH] fix

---
 compiler/lib/generate.ml                      |    1 -
 compiler/tests-compiler/effects_toplevel.ml   |    2 +-
 compiler/tests-compiler/gh1007.ml             |   14 +-
 compiler/tests-compiler/gh1320.ml             |    4 +-
 compiler/tests-compiler/gh747.ml              |  169 +--
 compiler/tests-compiler/global_deadcode.ml    |    4 +-
 compiler/tests-compiler/lazy.ml               |    6 +-
 compiler/tests-compiler/loops.ml              |   38 +-
 compiler/tests-compiler/match_with_exn.ml     |    8 +-
 compiler/tests-compiler/mutable_closure.ml    |   10 +-
 compiler/tests-compiler/tailcall.ml           |    8 +-
 .../variable_declaration_output.ml            |    4 +-
 compiler/tests-full/stdlib.cma.expected.js    | 1029 ++++++++++-------
 compiler/tests-jsoo/test_obj.ml               |    5 +
 14 files changed, 739 insertions(+), 563 deletions(-)

diff --git a/compiler/lib/generate.ml b/compiler/lib/generate.ml
index 9eb31f7e18..a652b6ae6a 100644
--- a/compiler/lib/generate.ml
+++ b/compiler/lib/generate.ml
@@ -1017,7 +1017,6 @@ let throw_statement ctx cx k loc =
       ]
 
 let is_int = function
-  | J.ENum n -> J.Num.is_int n
   | J.EBin ((J.Bor | J.Lsr), _, _) -> true
   | _ -> false
 
diff --git a/compiler/tests-compiler/effects_toplevel.ml b/compiler/tests-compiler/effects_toplevel.ml
index 56f7ada14d..bdce5206cc 100644
--- a/compiler/tests-compiler/effects_toplevel.ml
+++ b/compiler/tests-compiler/effects_toplevel.ml
@@ -85,7 +85,7 @@ let%expect_test "test-compiler/lib-effects/test1.ml" =
                            undef,
                            function(_d_){
                             var _e_ = i + 1 | 0;
-                            if(5 !== i) return caml_cps_exact_call1(_c_, _e_);
+                            if(! Object.is(5, i)) return caml_cps_exact_call1(_c_, _e_);
                             caml_callback(g, [undef]);
                             var Test = [0];
                             runtime.caml_register_global(2, Test, "Test");
diff --git a/compiler/tests-compiler/gh1007.ml b/compiler/tests-compiler/gh1007.ml
index 46f5b06fd9..c749ffeef4 100644
--- a/compiler/tests-compiler/gh1007.ml
+++ b/compiler/tests-compiler/gh1007.ml
@@ -162,7 +162,7 @@ let ()  = M.myfun M.x
        next = x$0[1],
        rev_sort =
          function(n, l){
-          if(2 === n){
+          if(Object.is(2, n)){
            if(l){
             var match = l[2];
             if(match){
@@ -178,7 +178,7 @@ let ()  = M.myfun M.x
             }
            }
           }
-          else if(3 === n && l){
+          else if(Object.is(3, n) && l){
            var _d_ = l[2];
            if(_d_){
             var match$2 = _d_[2];
@@ -240,7 +240,7 @@ let ()  = M.myfun M.x
          },
        sort =
          function(n, l){
-          if(2 === n){
+          if(Object.is(2, n)){
            if(l){
             var match = l[2];
             if(match){
@@ -256,7 +256,7 @@ let ()  = M.myfun M.x
             }
            }
           }
-          else if(3 === n && l){
+          else if(Object.is(3, n) && l){
            var _b_ = l[2];
            if(_b_){
             var match$2 = _b_[2];
@@ -390,7 +390,7 @@ let ()  = M.run ()
          };
       if(even(i)) caml_call1(Stdlib[42], cst);
       var _a_ = i + 1 | 0;
-      if(4 === i) return 0;
+      if(Object.is(4, i)) return 0;
       var i = _a_;
      }
     }
@@ -499,7 +499,7 @@ let ()  = M.run ()
        even = closures$0[1];
       if(even(i)) caml_call1(Stdlib[42], cst);
       var _e_ = i + 1 | 0;
-      if(4 === i){
+      if(Object.is(4, i)){
        var _d_ = caml_call1(list_rev, delayed[1]);
        return caml_call2(list_iter, function(f){return caml_call1(f, 0);}, _d_);
       }
@@ -631,7 +631,7 @@ let ()  = M.run ()
        var f = param$0[2], param$0 = f(0);
       }
       var _g_ = i + 1 | 0;
-      if(4 === i){
+      if(Object.is(4, i)){
        var _f_ = caml_call1(list_rev, delayed[1]);
        return caml_call2(list_iter, function(f){return caml_call1(f, 0);}, _f_);
       }
diff --git a/compiler/tests-compiler/gh1320.ml b/compiler/tests-compiler/gh1320.ml
index 14d95d6c10..7e491da697 100644
--- a/compiler/tests-compiler/gh1320.ml
+++ b/compiler/tests-compiler/gh1320.ml
@@ -51,7 +51,7 @@ let () = myfun ()
          function(i){
           function g(x){return app(f, x);}
           function f(x){
-           return 0 === x ? 1 : runtime.caml_mul(i, app(g, x - 1 | 0));
+           return Object.is(0, x) ? 1 : runtime.caml_mul(i, app(g, x - 1 | 0));
           }
           var block = [0, g, f];
           return block;
@@ -61,7 +61,7 @@ let () = myfun ()
        _b_ = g(i);
       caml_call2(Stdlib_Printf[3], _a_, _b_);
       var _c_ = i + 1 | 0;
-      if(4 === i) return 0;
+      if(Object.is(4, i)) return 0;
       var i = _c_;
      }
     }
diff --git a/compiler/tests-compiler/gh747.ml b/compiler/tests-compiler/gh747.ml
index 7d04e7195f..e6c7470a1d 100644
--- a/compiler/tests-compiler/gh747.ml
+++ b/compiler/tests-compiler/gh747.ml
@@ -316,86 +316,89 @@ end
      91:    function format_backtrace_slot(pos, slot){
      92:     function info(is_raise){
      93:       /*<<test.ml:46:4>>*/ return is_raise
-     94:              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
-     95:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from;
-     96:      /*<<test.ml:49:75>>*/ }
-     97:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
-     98:       /*<<test.ml:59:14>>*/ var
-     99:       _h_ = slot[5],
-    100:       _i_ = slot[4],
-    101:       _j_ = slot[3],
-    102:       _k_ = slot[6] ? cst_inlined : cst,
-    103:       _l_ = slot[2],
-    104:       _m_ = slot[7],
-    105:        /*<<test.ml:59:14>>*/ _n_ = info(slot[1]);
-    106:       /*<<test.ml:58:6>>*/ return [0,
-    107:               /*<<test.ml:58:11>>*/ caml_call8
-    108:               (Stdlib_Printf[4], _a_, _n_, _m_, _l_, _k_, _j_, _i_, _h_)];
-    109:     }
-    110:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0;
-    111:      /*<<test.ml:56:51>>*/  /*<<test.ml:56:51>>*/ var _o_ = info(0);
-    112:      /*<<test.ml:56:8>>*/ return [0,
-    113:              /*<<test.ml:56:13>>*/ caml_call2(Stdlib_Printf[4], _b_, _o_)];
-    114:     /*<<test.ml:61:52>>*/ }
-    115:    function print_exception_backtrace(outchan, backtrace){
-    116:      /*<<test.ml:64:2>>*/ if(! backtrace)
-    117:       /*<<test.ml:66:6>>*/ return  /*<<test.ml:66:6>>*/ caml_call2
-    118:              (Stdlib_Printf[1], outchan, _d_);
-    119:     var a = backtrace[1], _f_ = a.length - 1 - 1 | 0, _e_ = 0;
-    120:     if(_f_ >= 0){
-    121:      var i = _e_;
-    122:      for(;;){
-    123:        /*<<test.ml:70:14>>*/  /*<<test.ml:70:14>>*/ var
-    124:        match = format_backtrace_slot(i, runtime.caml_check_bound(a, i)[1 + i]);
-    125:       if(match){
-    126:        var str = match[1];
-    127:         /*<<test.ml:72:24>>*/  /*<<test.ml:72:24>>*/ caml_call3
-    128:         (Stdlib_Printf[1], outchan, _c_, str);
-    129:       }
-    130:        /*<<test.ml:69:6>>*/  /*<<test.ml:69:6>>*/ var _g_ = i + 1 | 0;
-    131:       if(Object.is(_f_, i)) break;
-    132:       var i = _g_;
-    133:      }
-    134:     }
-    135:     return 0;
-    136:     /*<<test.ml:73:10>>*/ }
-    137:    function compare(left, right, e1, e2){
-    138:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
-    139:      var v1 = e1[1];
-    140:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1;
-    141:      var v2 = e2[1];
-    142:       /*<<test.ml:78:24>>*/ return  /*<<test.ml:78:24>>*/ caml_call2
-    143:              (left, v1, v2);
-    144:     }
-    145:     var v1$0 = e1[1];
-    146:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1;
-    147:     var v2$0 = e2[1];
-    148:      /*<<test.ml:79:26>>*/ return  /*<<test.ml:79:26>>*/ caml_call2
-    149:             (right, v1$0, v2$0);
-    150:     /*<<test.ml:81:24>>*/ }
-    151:     /*<<test.ml:75:16>>*/ var
-    152:      /*<<test.ml:75:16>>*/ Either = [0, compare],
-    153:     Test =
-    154:       [0,
-    155:        executable_name,
-    156:        os_type,
-    157:        backend_type,
-    158:        big_endian,
-    159:        word_size,
-    160:        int_size,
-    161:        unix,
-    162:        win32,
-    163:        cygwin,
-    164:        max_array_length,
-    165:        max_floatarray_length,
-    166:        max_string_length,
-    167:        Unhandled,
-    168:        format_backtrace_slot,
-    169:        print_exception_backtrace,
-    170:        Either];
-    171:    runtime.caml_register_global(12, Test, "Test");
-    172:    return;
-    173:    /*<<?>>*/ }
-    174:   (globalThis));
-    175:
-    176: //# sourceMappingURL=test.map |}]
+     94:              ? Object.is(0, pos) ? cst_Raised_at : cst_Re_raised_at
+     95:              : Object.is
+     96:                 (0, pos)
+     97:                ? cst_Raised_by_primitive_operat
+     98:                : cst_Called_from;
+     99:      /*<<test.ml:49:75>>*/ }
+    100:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
+    101:       /*<<test.ml:59:14>>*/ var
+    102:       _h_ = slot[5],
+    103:       _i_ = slot[4],
+    104:       _j_ = slot[3],
+    105:       _k_ = slot[6] ? cst_inlined : cst,
+    106:       _l_ = slot[2],
+    107:       _m_ = slot[7],
+    108:        /*<<test.ml:59:14>>*/ _n_ = info(slot[1]);
+    109:       /*<<test.ml:58:6>>*/ return [0,
+    110:               /*<<test.ml:58:11>>*/ caml_call8
+    111:               (Stdlib_Printf[4], _a_, _n_, _m_, _l_, _k_, _j_, _i_, _h_)];
+    112:     }
+    113:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0;
+    114:      /*<<test.ml:56:51>>*/  /*<<test.ml:56:51>>*/ var _o_ = info(0);
+    115:      /*<<test.ml:56:8>>*/ return [0,
+    116:              /*<<test.ml:56:13>>*/ caml_call2(Stdlib_Printf[4], _b_, _o_)];
+    117:     /*<<test.ml:61:52>>*/ }
+    118:    function print_exception_backtrace(outchan, backtrace){
+    119:      /*<<test.ml:64:2>>*/ if(! backtrace)
+    120:       /*<<test.ml:66:6>>*/ return  /*<<test.ml:66:6>>*/ caml_call2
+    121:              (Stdlib_Printf[1], outchan, _d_);
+    122:     var a = backtrace[1], _f_ = a.length - 1 - 1 | 0, _e_ = 0;
+    123:     if(_f_ >= 0){
+    124:      var i = _e_;
+    125:      for(;;){
+    126:        /*<<test.ml:70:14>>*/  /*<<test.ml:70:14>>*/ var
+    127:        match = format_backtrace_slot(i, runtime.caml_check_bound(a, i)[1 + i]);
+    128:       if(match){
+    129:        var str = match[1];
+    130:         /*<<test.ml:72:24>>*/  /*<<test.ml:72:24>>*/ caml_call3
+    131:         (Stdlib_Printf[1], outchan, _c_, str);
+    132:       }
+    133:        /*<<test.ml:69:6>>*/  /*<<test.ml:69:6>>*/ var _g_ = i + 1 | 0;
+    134:       if(Object.is(_f_, i)) break;
+    135:       var i = _g_;
+    136:      }
+    137:     }
+    138:     return 0;
+    139:     /*<<test.ml:73:10>>*/ }
+    140:    function compare(left, right, e1, e2){
+    141:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
+    142:      var v1 = e1[1];
+    143:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1;
+    144:      var v2 = e2[1];
+    145:       /*<<test.ml:78:24>>*/ return  /*<<test.ml:78:24>>*/ caml_call2
+    146:              (left, v1, v2);
+    147:     }
+    148:     var v1$0 = e1[1];
+    149:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1;
+    150:     var v2$0 = e2[1];
+    151:      /*<<test.ml:79:26>>*/ return  /*<<test.ml:79:26>>*/ caml_call2
+    152:             (right, v1$0, v2$0);
+    153:     /*<<test.ml:81:24>>*/ }
+    154:     /*<<test.ml:75:16>>*/ var
+    155:      /*<<test.ml:75:16>>*/ Either = [0, compare],
+    156:     Test =
+    157:       [0,
+    158:        executable_name,
+    159:        os_type,
+    160:        backend_type,
+    161:        big_endian,
+    162:        word_size,
+    163:        int_size,
+    164:        unix,
+    165:        win32,
+    166:        cygwin,
+    167:        max_array_length,
+    168:        max_floatarray_length,
+    169:        max_string_length,
+    170:        Unhandled,
+    171:        format_backtrace_slot,
+    172:        print_exception_backtrace,
+    173:        Either];
+    174:    runtime.caml_register_global(12, Test, "Test");
+    175:    return;
+    176:    /*<<?>>*/ }
+    177:   (globalThis));
+    178:
+    179: //# sourceMappingURL=test.map |}]
diff --git a/compiler/tests-compiler/global_deadcode.ml b/compiler/tests-compiler/global_deadcode.ml
index fa91300b45..34e83bd590 100644
--- a/compiler/tests-compiler/global_deadcode.ml
+++ b/compiler/tests-compiler/global_deadcode.ml
@@ -68,7 +68,7 @@ let%expect_test "Eliminates unused functions from functor" =
     function add(x, t){
      if(! t) return [0, 0, x, 0, 1];
      var r = t[3], v = t[2], l = t[1], c = caml_call2(Ord[1], x, v);
-     if(0 === c) return t;
+     if(Object.is(0, c)) return t;
      if(0 <= c){var rr = add(x, r); return Object.is(r, rr) ? t : bal(l, v, rr);}
      var ll = add(x, l);
      return Object.is(l, ll) ? t : bal(ll, v, r);
@@ -84,7 +84,7 @@ let%expect_test "Eliminates unused functions from functor" =
        v = param$0[2],
        l = param$0[1],
        c = caml_call2(Ord[1], x, v);
-      if(0 === c) return v;
+      if(Object.is(0, c)) return v;
       var r$0 = 0 <= c ? r : l, param$0 = r$0;
      }
     }
diff --git a/compiler/tests-compiler/lazy.ml b/compiler/tests-compiler/lazy.ml
index 1ec728acd6..56d6a8845e 100644
--- a/compiler/tests-compiler/lazy.ml
+++ b/compiler/tests-compiler/lazy.ml
@@ -34,13 +34,13 @@ let%expect_test "static eval of string get" =
   [%expect
     {|
     function do_the_lazy_rec(n){
-     if(0 === n) return 0;
+     if(Object.is(0, n)) return 0;
      var _b_ = do_the_lazy_rec(n - 1 | 0), _c_ = runtime.caml_obj_tag(lz);
      a:
-     if(250 === _c_)
+     if(Object.is(250, _c_))
       var _d_ = lz[1];
      else{
-      if(246 !== _c_ && 244 !== _c_){var _d_ = lz; break a;}
+      if(! Object.is(246, _c_) && ! Object.is(244, _c_)){var _d_ = lz; break a;}
       var _d_ = caml_call1(CamlinternalLazy[2], lz);
      }
      return [0, _d_, _b_];
diff --git a/compiler/tests-compiler/loops.ml b/compiler/tests-compiler/loops.ml
index cbddec6373..c40fc53b12 100644
--- a/compiler/tests-compiler/loops.ml
+++ b/compiler/tests-compiler/loops.ml
@@ -87,12 +87,12 @@ let rec fun_with_loop acc = function
        return caml_call1
                (list_rev, caml_call1(list_rev, caml_call1(list_rev, acc$0)));
       var x = param$0[1];
-      if(1 === x && ! param$0[2]){
+      if(Object.is(1, x) && ! param$0[2]){
        var a$0 = [0, acc$0], i$0 = 0;
        for(;;){
         a$0[1] = [0, 1, a$0[1]];
         var _b_ = i$0 + 1 | 0;
-        if(10 === i$0) return a$0[1];
+        if(Object.is(10, i$0)) return a$0[1];
         var i$0 = _b_;
        }
       }
@@ -100,7 +100,7 @@ let rec fun_with_loop acc = function
       for(;;){
        a[1] = [0, 1, a[1]];
        var _a_ = i + 1 | 0;
-       if(10 === i) break;
+       if(Object.is(10, i)) break;
        var i = _a_;
       }
       var acc$1 = [0, x, a[1]], acc$0 = acc$1, param$0 = xs;
@@ -134,11 +134,11 @@ let for_for_while () =
       for(;;){
        for(;;){if(10 <= runtime.caml_mul(k, j)) break; id[1]++;}
        var _b_ = j + 1 | 0;
-       if(10 === j) break;
+       if(Object.is(10, j)) break;
        var j = _b_;
       }
       var _a_ = k + 1 | 0;
-      if(10 === k) return 0;
+      if(Object.is(10, k)) return 0;
       var k = _a_;
      }
     }
@@ -175,11 +175,11 @@ let for_for_while () =
         id[1]++;
        }
        var _b_ = j + 1 | 0;
-       if(10 === j) break;
+       if(Object.is(10, j)) break;
        var j = _b_;
       }
       var _a_ = k + 1 | 0;
-      if(10 === k) return 0;
+      if(Object.is(10, k)) return 0;
       var k = _a_;
      }
     }
@@ -310,8 +310,8 @@ in loop x
     function inspect(x){
      var x$1 = x;
      for(;;){
-      if(0 === x$1) return 1;
-      if(1 === x$1) break;
+      if(Object.is(0, x$1)) return 1;
+      if(Object.is(1, x$1)) break;
       var x$2 = x$1 + 1 | 0, x$1 = x$2;
      }
      var x$0 = 2;
@@ -435,12 +435,12 @@ let add_substitute =
      var lim$1 = caml_ml_string_length(s), previous = 32, i$4 = 0;
      for(;;){
       if(i$4 >= lim$1){
-       var _b_ = 92 === previous ? 1 : 0;
+       var _b_ = Object.is(92, previous) ? 1 : 0;
        return _b_ ? caml_call2(add_char, b, previous) : _b_;
       }
       var previous$0 = caml_string_get(s, i$4);
-      if(36 === previous$0)
-       if(92 === previous){
+      if(Object.is(36, previous$0))
+       if(Object.is(92, previous)){
         caml_call2(add_char, b, previous$0);
         var i$5 = i$4 + 1 | 0, previous = 32, i$4 = i$5;
        }
@@ -450,7 +450,7 @@ let add_substitute =
         var opening = caml_string_get(s, start$0);
         a:
         {
-         if(40 !== opening && 123 !== opening){
+         if(! Object.is(40, opening) && ! Object.is(123, opening)){
           var start = start$0 + 1 | 0, lim$0 = caml_ml_string_length(s);
           b:
           {
@@ -466,7 +466,7 @@ let add_substitute =
                if(97 <= match){
                 if(123 <= match) break d;
                }
-               else if(95 !== match) break d;
+               else if(! Object.is(95, match)) break d;
               }
               else if(58 <= match){
                if(65 > match) break;
@@ -486,10 +486,10 @@ let add_substitute =
           break a;
          }
          var new_start = start$0 + 1 | 0, k$2 = 0;
-         if(40 === opening)
+         if(Object.is(40, opening))
           var closing = 41;
          else{
-          if(123 !== opening)
+          if(! Object.is(123, opening))
            throw caml_maybe_attach_backtrace([0, Assert_failure, _a_], 1);
           var closing = 125;
          }
@@ -499,7 +499,7 @@ let add_substitute =
           if(Object.is(caml_string_get(s, stop), opening))
            var i = stop + 1 | 0, k$0 = k + 1 | 0, k = k$0, stop = i;
           else if(Object.is(caml_string_get(s, stop), closing)){
-           if(0 === k) break;
+           if(Object.is(0, k)) break;
            var i$0 = stop + 1 | 0, k$1 = k - 1 | 0, k = k$1, stop = i$0;
           }
           else
@@ -515,12 +515,12 @@ let add_substitute =
         caml_call2(add_string, b, caml_call1(f, ident));
         var previous = 32, i$4 = next_i;
        }
-      else if(92 === previous){
+      else if(Object.is(92, previous)){
        caml_call2(add_char, b, 92);
        caml_call2(add_char, b, previous$0);
        var i$6 = i$4 + 1 | 0, previous = 32, i$4 = i$6;
       }
-      else if(92 === previous$0)
+      else if(Object.is(92, previous$0))
        var i$7 = i$4 + 1 | 0, previous = previous$0, i$4 = i$7;
       else{
        caml_call2(add_char, b, previous$0);
diff --git a/compiler/tests-compiler/match_with_exn.ml b/compiler/tests-compiler/match_with_exn.ml
index bf236d72db..9d7056a773 100644
--- a/compiler/tests-compiler/match_with_exn.ml
+++ b/compiler/tests-compiler/match_with_exn.ml
@@ -80,11 +80,11 @@ let fun2 () =
        var _d_ = caml_wrap_exception(_e_);
        if(! Object.is(_d_[1], A)) throw caml_maybe_attach_backtrace(_d_, 0);
        var i = _d_[2];
-       if(2 !== i) return i + 2 | 0;
+       if(! Object.is(2, i)) return i + 2 | 0;
        var i$0 = i;
        break a;
       }
-      if(0 !== i$1) return i$1 + 1 | 0;
+      if(! Object.is(0, i$1)) return i$1 + 1 | 0;
       var i$0 = i$1;
      }
      return i$0;
@@ -98,11 +98,11 @@ let fun2 () =
        var _a_ = caml_wrap_exception(_c_);
        if(Object.is(_a_[1], A)){
         var _b_ = _a_[2];
-        if(2 === _b_){var i = _b_; break a;}
+        if(Object.is(2, _b_)){var i = _b_; break a;}
        }
        throw caml_maybe_attach_backtrace(_a_, 0);
       }
-      if(0 !== i$0) return i$0 + 1 | 0;
+      if(! Object.is(0, i$0)) return i$0 + 1 | 0;
       var i = i$0;
      }
      return i;
diff --git a/compiler/tests-compiler/mutable_closure.ml b/compiler/tests-compiler/mutable_closure.ml
index 49f6c3314f..a26e1a77d1 100644
--- a/compiler/tests-compiler/mutable_closure.ml
+++ b/compiler/tests-compiler/mutable_closure.ml
@@ -124,26 +124,26 @@ let%expect_test _ =
        closures =
          function(i){
           function f(counter, n){
-           if(- 1 === n){
+           if(Object.is(- 1, n)){
             var _j_ = - 2;
             if(counter >= 50) return caml_trampoline_return(g, [0, _j_]);
             var counter$1 = counter + 1 | 0;
             return g(counter$1, _j_);
            }
-           if(0 === n) return i;
+           if(Object.is(0, n)) return i;
            var _k_ = n - 1 | 0;
            if(counter >= 50) return caml_trampoline_return(g, [0, _k_]);
            var counter$0 = counter + 1 | 0;
            return g(counter$0, _k_);
           }
           function g(counter, n){
-           if(- 1 === n){
+           if(Object.is(- 1, n)){
             var _h_ = - 2;
             if(counter >= 50) return caml_trampoline_return(f, [0, _h_]);
             var counter$1 = counter + 1 | 0;
             return f(counter$1, _h_);
            }
-           if(0 === n) return i;
+           if(Object.is(0, n)) return i;
            var _i_ = n - 1 | 0;
            if(counter >= 50) return caml_trampoline_return(f, [0, _i_]);
            var counter$0 = counter + 1 | 0;
@@ -162,7 +162,7 @@ let%expect_test _ =
       indirect[1] =
        [0, function(i, f){return function(param){return f(i);};}(i, f), _f_];
       var _g_ = i + 1 | 0;
-      if(3 === i){
+      if(Object.is(3, i)){
        var
         _d_ = indirect[1],
         indirect$0 =
diff --git a/compiler/tests-compiler/tailcall.ml b/compiler/tests-compiler/tailcall.ml
index 92b9e4933d..a685925e08 100644
--- a/compiler/tests-compiler/tailcall.ml
+++ b/compiler/tests-compiler/tailcall.ml
@@ -46,14 +46,14 @@ let%expect_test _ =
     {|
     function fun1(param){
      function odd$0(counter, x){
-      if(0 === x) return 0;
+      if(Object.is(0, x)) return 0;
       var _g_ = x - 1 | 0;
       if(counter >= 50) return caml_trampoline_return(even$0, [0, _g_]);
       var counter$0 = counter + 1 | 0;
       return even$0(counter$0, _g_);
      }
      function even$0(counter, x){
-      if(0 === x) return 1;
+      if(Object.is(0, x)) return 1;
       var _f_ = x - 1 | 0;
       if(counter >= 50) return caml_trampoline_return(odd$0, [0, _f_]);
       var counter$0 = counter + 1 | 0;
@@ -95,10 +95,10 @@ let%expect_test _ =
     {|
     function fun1(param){
      function odd$0(x){
-      return 0 === x ? 0 : caml_trampoline_return(even$0, [0, x - 1 | 0]);
+      return Object.is(0, x) ? 0 : caml_trampoline_return(even$0, [0, x - 1 | 0]);
      }
      function even$0(x){
-      return 0 === x ? 1 : caml_trampoline_return(odd$0, [0, x - 1 | 0]);
+      return Object.is(0, x) ? 1 : caml_trampoline_return(odd$0, [0, x - 1 | 0]);
      }
      function odd(x){return caml_trampoline(odd$0(x));}
      function even(x){return caml_trampoline(even$0(x));}
diff --git a/compiler/tests-compiler/variable_declaration_output.ml b/compiler/tests-compiler/variable_declaration_output.ml
index f4275e9d77..5d6c185a2a 100644
--- a/compiler/tests-compiler/variable_declaration_output.ml
+++ b/compiler/tests-compiler/variable_declaration_output.ml
@@ -131,7 +131,7 @@ let%expect_test _ =
       if(_a_){
        _b_ = _a_[1];
        if(_b_){
-        if(2 === _b_[1] && ! param[2]) return 3;
+        if(Object.is(2, _b_[1]) && ! param[2]) return 3;
        }
        else if(! param[2]) return 2;
       }
@@ -153,7 +153,7 @@ let%expect_test _ =
       if(_a_){
        var _b_ = _a_[1];
        if(_b_){
-        if(2 === _b_[1] && ! param[2]) return 3;
+        if(Object.is(2, _b_[1]) && ! param[2]) return 3;
        }
        else if(! param[2]) return 2;
       }
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index 01411ba93d..98156e10da 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -485,7 +485,10 @@
       match =  /*<<stdlib.ml:281:10>>*/ runtime.caml_string_get(s, i);
      a:
      {
-      if(48 <= match){if(58 > match) break a;} else if(45 === match) break a;
+      if(48 <= match){
+       if(58 > match) break a;
+      }
+      else if(Object.is(45, match)) break a;
        /*<<stdlib.ml:279:2>>*/ return s;
      }
       /*<<stdlib.ml:282:26>>*/ var
@@ -656,7 +659,7 @@
      if(0 >= len$0)  /*<<stdlib.ml:426:19>>*/ return 0;
       /*<<stdlib.ml:427:12>>*/  /*<<stdlib.ml:427:12>>*/ var
       r =  /*<<stdlib.ml:427:12>>*/ caml_ml_input(ic, s, ofs$0, len$0);
-      /*<<stdlib.ml:428:4>>*/ if(0 === r)
+      /*<<stdlib.ml:428:4>>*/ if( /*<<stdlib.ml:428:4>>*/ Object.is(0, r))
        /*<<stdlib.ml:429:9>>*/ throw  /*<<stdlib.ml:429:9>>*/ caml_maybe_attach_backtrace
              (End_of_file, 1);
      var
@@ -697,7 +700,7 @@
      /*<<stdlib.ml:453:4>>*/ for(;;){
       /*<<stdlib.ml:453:12>>*/  /*<<stdlib.ml:453:12>>*/ var
       n =  /*<<stdlib.ml:453:12>>*/ runtime.caml_ml_input_scan_line(chan);
-      /*<<stdlib.ml:454:4>>*/ if(0 === n){
+      /*<<stdlib.ml:454:4>>*/ if( /*<<stdlib.ml:454:4>>*/ Object.is(0, n)){
       if(! accu)
         /*<<stdlib.ml:456:14>>*/ throw  /*<<stdlib.ml:456:14>>*/ caml_maybe_attach_backtrace
               (End_of_file, 1);
@@ -1321,13 +1324,16 @@
     out_of_heap_tag = 1001,
     unaligned_tag = 1002;
    function info(obj){
-     /*<<obj.ml:94:4>>*/ if( /*<<obj.ml:94:12>>*/ caml_obj_tag(obj) !== 247)
+     /*<<obj.ml:94:4>>*/ if
+     (!
+       /*<<obj.ml:94:12>>*/ Object.is
+       ( /*<<obj.ml:94:12>>*/ caml_obj_tag(obj), 247))
       /*<<obj.ml:94:4>>*/ throw  /*<<obj.ml:94:4>>*/ caml_maybe_attach_backtrace
             ([0, Assert_failure, _a_], 1);
      /*<<obj.ml:95:16>>*/ var
       /*<<obj.ml:95:16>>*/ info =
         /*<<obj.ml:95:16>>*/ runtime.caml_obj_raw_field(obj, 1),
-     arity = 64 === Stdlib_Sys[9] ? info >> 56 : info >> 24,
+     arity = Object.is(64, Stdlib_Sys[9]) ? info >> 56 : info >> 24,
       /*<<obj.ml:89:13>>*/ start_env = info << 8 >>> 9 | 0;
      /*<<obj.ml:90:4>>*/ return [0, arity, start_env];
     /*<<obj.ml:95:33>>*/ }
@@ -1336,18 +1342,30 @@
     {
      if
       (is_block(x)
-       &&  /*<<obj.ml:104:25>>*/ caml_obj_tag(x) !== 248 && 1 <= x.length - 1){var slot = x[1]; break a;}
+       &&
+        !
+         /*<<obj.ml:104:25>>*/ Object.is
+         ( /*<<obj.ml:104:25>>*/ caml_obj_tag(x), 248)
+        && 1 <= x.length - 1){
+      var slot = x[1];
+      break a;
+     }
      var slot = x;
     }
     a:
     {
-     if(is_block(slot) &&  /*<<obj.ml:108:28>>*/ caml_obj_tag(slot) === 248){var name = slot[1]; break a;}
+     if
+      (is_block(slot)
+       &&
+         /*<<obj.ml:108:28>>*/ Object.is
+         ( /*<<obj.ml:108:28>>*/ caml_obj_tag(slot), 248)){var name = slot[1]; break a;}
      var
       name =
          /*<<obj.ml:109:11>>*/ caml_call1
          (Stdlib[1], cst_Obj_extension_constructor$0);
     }
-    return  /*<<obj.ml:111:9>>*/ caml_obj_tag(name) === 252
+    return  /*<<obj.ml:111:9>>*/ Object.is
+             ( /*<<obj.ml:111:9>>*/ caml_obj_tag(name), 252)
             ? slot
             :  /*<<obj.ml:112:11>>*/ caml_call1
               (Stdlib[1], cst_Obj_extension_constructor);
@@ -1420,7 +1438,7 @@
        0 <= o1
        && (length(e1) - l | 0) >= o1 && 0 <= o2 && (length(e2) - l | 0) >= o2){
      var
-      _b_ = 0 !== l ? 1 : 0,
+      _b_ = Object.is(0, l) ? 0 : 1,
       _c_ =
         _b_
          ?  /*<<obj.ml:174:24>>*/ runtime.caml_ephe_blit_key
@@ -1577,10 +1595,11 @@
       [248, "CamlinternalLazy.Undefined", runtime.caml_fresh_oo_id(0)];
    function force_gen_lazy_block(only_val, blk){
      /*<<camlinternalLazy.ml:72:2>>*/ if
-     (0
-      !==
-        /*<<camlinternalLazy.ml:72:8>>*/ runtime.caml_lazy_update_to_forcing
-        (blk))
+     (!
+      Object.is
+       (0,
+         /*<<camlinternalLazy.ml:72:8>>*/ runtime.caml_lazy_update_to_forcing
+         (blk)))
       /*<<camlinternalLazy.ml:75:9>>*/ throw  /*<<camlinternalLazy.ml:75:9>>*/ caml_maybe_attach_backtrace
             (Undefined, 1);
     if(only_val){
@@ -1696,10 +1715,10 @@
             function(_f_){
              var _g_ = caml_obj_tag(x);
              a:
-             if(250 === _g_)
+             if(Object.is(250, _g_))
               var _h_ = x[1];
              else{
-              if(246 !== _g_ && 244 !== _g_){var _h_ = x; break a;}
+              if(! Object.is(246, _g_) && ! Object.is(244, _g_)){var _h_ = x; break a;}
               var _h_ = caml_call1(CamlinternalLazy[2], x);
              }
               /*<<lazy.ml:75:10>>*/ return  /*<<lazy.ml:75:10>>*/ caml_call1
@@ -1712,10 +1731,10 @@
              function(_c_){
               var _d_ = caml_obj_tag(x);
               a:
-              if(250 === _d_)
+              if(Object.is(250, _d_))
                var _e_ = x[1];
               else{
-               if(246 !== _d_ && 244 !== _d_){var _e_ = x; break a;}
+               if(! Object.is(246, _d_) && ! Object.is(244, _d_)){var _e_ = x; break a;}
                var _e_ = caml_call1(CamlinternalLazy[2], x);
               }
                /*<<lazy.ml:80:15>>*/ return  /*<<lazy.ml:80:15>>*/ caml_call1
@@ -1723,10 +1742,10 @@
              }];
     var _a_ = caml_obj_tag(x);
     a:
-    if(250 === _a_)
+    if(Object.is(250, _a_))
      var _b_ = x[1];
     else{
-     if(246 !== _a_ && 244 !== _a_){var _b_ = x; break a;}
+     if(! Object.is(246, _a_) && ! Object.is(244, _a_)){var _b_ = x; break a;}
      var _b_ = caml_call1(CamlinternalLazy[2], x);
     }
      /*<<lazy.ml:79:16>>*/ return from_val
@@ -2143,7 +2162,8 @@
       ys$1 = match$0[2],
       y = match$0[1],
        /*<<seq.ml:252:14>>*/ c =  /*<<seq.ml:252:14>>*/ caml_call2(cmp, x, y);
-      /*<<seq.ml:253:6>>*/ if(0 !== c)  /*<<seq.ml:253:21>>*/ return c;
+      /*<<seq.ml:253:6>>*/ if(!  /*<<seq.ml:253:6>>*/ Object.is(0, c))
+       /*<<seq.ml:253:21>>*/ return c;
      var xs$0 = xs$1, ys$0 = ys$1;
     }
     /*<<seq.ml:257:8>>*/ }
@@ -2251,7 +2271,7 @@
       /*<<?>>*/ return [0, s, _Z_];};
     /*<<seq.ml:348:27>>*/ }
    function take_aux(n, xs){
-     /*<<seq.ml:354:2>>*/ return 0 === n
+     /*<<seq.ml:354:2>>*/ return Object.is(0, n)
             ? empty
             : function
              (param){
@@ -2270,8 +2290,8 @@
     /*<<seq.ml:366:15>>*/ }
    function drop(n, xs){
      /*<<seq.ml:387:2>>*/ return 0 <= n
-            ? 0
-              === n
+            ? Object.is
+               (0, n)
               ? xs
               : function
                (param){
@@ -2283,7 +2303,8 @@
                   /*<<seq.ml:377:6>>*/ var
                   xs$1 = match[2],
                    /*<<seq.ml:377:6>>*/ n$1 = n$0 - 1 | 0;
-                  /*<<seq.ml:378:6>>*/ if(0 === n$1)
+                  /*<<seq.ml:378:6>>*/ if
+                  ( /*<<seq.ml:378:6>>*/ Object.is(0, n$1))
                    /*<<seq.ml:379:8>>*/ return  /*<<seq.ml:379:8>>*/ caml_call1
                           (xs$1, 0);
                  var n$0 = n$1, xs$0 = xs$1;
@@ -2357,8 +2378,9 @@
      s =  /*<<seq.ml:434:14>>*/ caml_call1(to_lazy, s$0);
      /*<<seq.ml:434:14>>*/ return function(_O_){
      var _N_ = runtime.caml_obj_tag(s);
-     if(250 === _N_) return s[1];
-     if(246 !== _N_ && 244 !== _N_)  /*<<seq.ml:429:14>>*/ return s;
+     if(Object.is(250, _N_)) return s[1];
+     if(! Object.is(246, _N_) && ! Object.is(244, _N_))
+       /*<<seq.ml:429:14>>*/ return s;
       /*<<seq.ml:429:14>>*/ return  /*<<seq.ml:429:14>>*/ caml_call1
              (CamlinternalLazy[2], s);};
     /*<<seq.ml:465:3>>*/ }
@@ -3092,7 +3114,7 @@
      /*<<char.ml:29:14>>*/ a:
     {
      if(40 <= c){
-      if(92 === c)  /*<<char.ml:31:12>>*/ return cst;
+      if(Object.is(92, c))  /*<<char.ml:31:12>>*/ return cst;
       if(127 > c) break a;
      }
      else{
@@ -3198,14 +3220,17 @@
     bom = 65279,
     rep = 65533;
    function succ(u){
-     /*<<uchar.ml:34:2>>*/ return u === 55295
+     /*<<uchar.ml:34:2>>*/ return Object.is(u, 55295)
             ? hi_bound
-            : u === 1114111 ? caml_call1(Stdlib[1], err_no_succ) : u + 1 | 0;
+            : Object.is
+               (u, 1114111)
+              ? caml_call1(Stdlib[1], err_no_succ)
+              : u + 1 | 0;
     /*<<uchar.ml:36:7>>*/ }
    function pred(u){
-     /*<<uchar.ml:39:2>>*/ return u === 57344
+     /*<<uchar.ml:39:2>>*/ return Object.is(u, 57344)
             ? lo_bound
-            : u === 0 ? caml_call1(Stdlib[1], err_no_pred) : u - 1 | 0;
+            : Object.is(u, 0) ? caml_call1(Stdlib[1], err_no_pred) : u - 1 | 0;
     /*<<uchar.ml:41:7>>*/ }
    function is_valid(i){
      /*<<uchar.ml:43:17>>*/ var
@@ -3404,7 +3429,8 @@
        /*<<list.ml:41:12>>*/ return  /*<<list.ml:41:12>>*/ caml_call1
               (Stdlib[2], cst_nth);
      var l$1 = l$0[2], a = l$0[1];
-      /*<<list.ml:42:14>>*/ if(0 === n$0)  /*<<list.ml:42:28>>*/ return a;
+      /*<<list.ml:42:14>>*/ if( /*<<list.ml:42:14>>*/ Object.is(0, n$0))
+       /*<<list.ml:42:28>>*/ return a;
       /*<<list.ml:42:35>>*/ var
        /*<<list.ml:42:35>>*/ n$1 = n$0 - 1 | 0,
       l$0 = l$1,
@@ -3419,7 +3445,7 @@
      /*<<list.ml:48:4>>*/ for(;;){
      if(! l$0)  /*<<list.ml:49:12>>*/ return 0;
      var l$1 = l$0[2], a = l$0[1];
-      /*<<list.ml:50:14>>*/ if(0 === n$0)
+      /*<<list.ml:50:14>>*/ if( /*<<list.ml:50:14>>*/ Object.is(0, n$0))
        /*<<list.ml:50:28>>*/ return [0, a];
       /*<<list.ml:50:40>>*/ var
        /*<<list.ml:50:40>>*/ n$1 = n$0 - 1 | 0,
@@ -3449,7 +3475,7 @@
              (Stdlib[1], cst_List_init);
     var last = len - 1 | 0, i$1 = 0;
     if(last < 0)  /*<<list.ml:63:19>>*/ return 0;
-    if(0 === last)
+    if(Object.is(0, last))
       /*<<list.ml:64:24>>*/ return [0,
               /*<<list.ml:64:25>>*/ caml_call1(f, i$1),
              0];
@@ -3850,7 +3876,7 @@
      var
       l = param$0[2],
       a = param$0[1],
-      _B_ = 0 ===  /*<<list.ml:192:12>>*/ caml_compare(a, x) ? 1 : 0;
+      _B_ = Object.is(0,  /*<<list.ml:192:12>>*/ caml_compare(a, x)) ? 1 : 0;
      if(_B_) return _B_;
      var param$0 = l;
     }
@@ -3872,7 +3898,8 @@
              (Stdlib[8], 1);
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
       /*<<list.ml:200:19>>*/ if
-      (0 ===  /*<<list.ml:200:19>>*/ caml_compare(a, x))
+      ( /*<<list.ml:200:19>>*/ Object.is
+        (0,  /*<<list.ml:200:19>>*/ caml_compare(a, x)))
        /*<<list.ml:200:40>>*/ return b;
      var param$0 = l;
     }
@@ -3883,7 +3910,8 @@
      if(! param$0)  /*<<list.ml:203:10>>*/ return 0;
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
       /*<<list.ml:204:19>>*/ if
-      (0 ===  /*<<list.ml:204:19>>*/ caml_compare(a, x))
+      ( /*<<list.ml:204:19>>*/ Object.is
+        (0,  /*<<list.ml:204:19>>*/ caml_compare(a, x)))
        /*<<list.ml:204:40>>*/ return [0, b];
      var param$0 = l;
     }
@@ -3915,7 +3943,7 @@
      var
       l = param$0[2],
       a = param$0[1][1],
-      _z_ = 0 ===  /*<<list.ml:216:19>>*/ caml_compare(a, x) ? 1 : 0;
+      _z_ = Object.is(0,  /*<<list.ml:216:19>>*/ caml_compare(a, x)) ? 1 : 0;
      if(_z_) return _z_;
      var param$0 = l;
     }
@@ -3932,8 +3960,8 @@
    function remove_assoc(x, param){
      /*<<?>>*/ if(! param)  /*<<list.ml:223:10>>*/ return 0;
     var l = param[2], pair = param[1], a = pair[1];
-     /*<<list.ml:225:9>>*/ return 0
-            ===  /*<<list.ml:225:9>>*/ caml_compare(a, x)
+     /*<<list.ml:225:9>>*/ return  /*<<list.ml:225:9>>*/ Object.is
+             (0,  /*<<list.ml:225:9>>*/ caml_compare(a, x))
             ? l
             : [0, pair, remove_assoc(x, l)];
    }
@@ -4246,7 +4274,7 @@
     /*<<list.ml:337:32>>*/ }
    function stable_sort(cmp, l){
     function sort(n, l){
-      /*<<list.ml:360:4>>*/ if(2 === n){
+      /*<<list.ml:360:4>>*/ if(Object.is(2, n)){
       if(l){
        var match = l[2];
        if(match){
@@ -4262,7 +4290,7 @@
        }
       }
      }
-     else if(3 === n && l){
+     else if(Object.is(3, n) && l){
       var _v_ = l[2];
       if(_v_){
        var match$2 = _v_[2];
@@ -4330,7 +4358,7 @@
      }
      /*<<list.ml:380:36>>*/ }
     function rev_sort(n, l){
-      /*<<list.ml:382:4>>*/ if(2 === n){
+      /*<<list.ml:382:4>>*/ if(Object.is(2, n)){
       if(l){
        var match = l[2];
        if(match){
@@ -4346,7 +4374,7 @@
        }
       }
      }
-     else if(3 === n && l){
+     else if(Object.is(3, n) && l){
       var _t_ = l[2];
       if(_t_){
        var match$2 = _t_[2];
@@ -4418,7 +4446,7 @@
     /*<<list.ml:405:41>>*/ }
    function sort_uniq(cmp, l){
     function sort(n, l){
-      /*<<list.ml:443:4>>*/ if(2 === n){
+      /*<<list.ml:443:4>>*/ if(Object.is(2, n)){
       if(l){
        var match = l[2];
        if(match){
@@ -4429,14 +4457,14 @@
           /*<<list.ml:446:18>>*/ c$0 =
             /*<<list.ml:446:18>>*/ caml_call2(cmp, x1, x2),
           /*<<list.ml:447:10>>*/ s =
-           0 === c$0
+            /*<<list.ml:447:10>>*/ Object.is(0, c$0)
             ? [0, x1, 0]
             : 0 <= c$0 ? [0, x2, [0, x1, 0]] : [0, x1, [0, x2, 0]];
          /*<<list.ml:449:8>>*/ return [0, s, tl];
        }
       }
      }
-     else if(3 === n && l){
+     else if(Object.is(3, n) && l){
       var _m_ = l[2];
       if(_m_){
        var match$2 = _m_[2];
@@ -4448,26 +4476,26 @@
          x1$0 = l[1],
           /*<<list.ml:452:18>>*/ c$1 =
             /*<<list.ml:452:18>>*/ caml_call2(cmp, x1$0, x2$0);
-         /*<<list.ml:453:10>>*/ if(0 === c$1)
+         /*<<list.ml:453:10>>*/ if( /*<<list.ml:453:10>>*/ Object.is(0, c$1))
           /*<<list.ml:454:20>>*/ var
            /*<<list.ml:454:20>>*/ c$2 =
              /*<<list.ml:454:20>>*/ caml_call2(cmp, x2$0, x3),
            /*<<list.ml:455:12>>*/ _n_ =
-            0 === c$2
+             /*<<list.ml:455:12>>*/ Object.is(0, c$2)
              ? [0, x2$0, 0]
              : 0 <= c$2 ? [0, x3, [0, x2$0, 0]] : [0, x2$0, [0, x3, 0]],
           s$0 = _n_;
         else if(0 <= c$1){
           /*<<list.ml:466:20>>*/  /*<<list.ml:466:20>>*/ var
           c$3 =  /*<<list.ml:466:20>>*/ caml_call2(cmp, x1$0, x3);
-          /*<<list.ml:467:12>>*/ if(0 === c$3)
+          /*<<list.ml:467:12>>*/ if( /*<<list.ml:467:12>>*/ Object.is(0, c$3))
           var _o_ = [0, x2$0, [0, x1$0, 0]];
          else if(0 <= c$3)
            /*<<list.ml:470:22>>*/ var
             /*<<list.ml:470:22>>*/ c$4 =
               /*<<list.ml:470:22>>*/ caml_call2(cmp, x2$0, x3),
             /*<<list.ml:471:14>>*/ _p_ =
-             0 === c$4
+              /*<<list.ml:471:14>>*/ Object.is(0, c$4)
               ? [0, x2$0, [0, x1$0, 0]]
               : 0
                 <= c$4
@@ -4481,14 +4509,14 @@
         else{
           /*<<list.ml:457:20>>*/  /*<<list.ml:457:20>>*/ var
           c$5 =  /*<<list.ml:457:20>>*/ caml_call2(cmp, x2$0, x3);
-          /*<<list.ml:458:12>>*/ if(0 === c$5)
+          /*<<list.ml:458:12>>*/ if( /*<<list.ml:458:12>>*/ Object.is(0, c$5))
           var _q_ = [0, x1$0, [0, x2$0, 0]];
          else if(0 <= c$5)
            /*<<list.ml:461:22>>*/ var
             /*<<list.ml:461:22>>*/ c$6 =
               /*<<list.ml:461:22>>*/ caml_call2(cmp, x1$0, x3),
             /*<<list.ml:462:14>>*/ _r_ =
-             0 === c$6
+              /*<<list.ml:462:14>>*/ Object.is(0, c$6)
               ? [0, x1$0, [0, x2$0, 0]]
               : 0
                 <= c$6
@@ -4525,7 +4553,7 @@
          h1 = l1[1],
           /*<<list.ml:436:16>>*/ c =
             /*<<list.ml:436:16>>*/ caml_call2(cmp, h1, h2);
-         /*<<list.ml:437:8>>*/ if(0 === c){
+         /*<<list.ml:437:8>>*/ if( /*<<list.ml:437:8>>*/ Object.is(0, c)){
           /*<<list.ml:437:42>>*/ var
            /*<<list.ml:437:42>>*/ accu$0 = [0, h1, accu],
           l1 = t1,
@@ -4554,7 +4582,7 @@
      }
      /*<<list.ml:481:36>>*/ }
     function rev_sort(n, l){
-      /*<<list.ml:483:4>>*/ if(2 === n){
+      /*<<list.ml:483:4>>*/ if(Object.is(2, n)){
       if(l){
        var match = l[2];
        if(match){
@@ -4565,14 +4593,14 @@
           /*<<list.ml:486:18>>*/ c$0 =
             /*<<list.ml:486:18>>*/ caml_call2(cmp, x1, x2),
           /*<<list.ml:487:10>>*/ s =
-           0 === c$0
+            /*<<list.ml:487:10>>*/ Object.is(0, c$0)
             ? [0, x1, 0]
             : 0 < c$0 ? [0, x1, [0, x2, 0]] : [0, x2, [0, x1, 0]];
          /*<<list.ml:489:8>>*/ return [0, s, tl];
        }
       }
      }
-     else if(3 === n && l){
+     else if(Object.is(3, n) && l){
       var _f_ = l[2];
       if(_f_){
        var match$2 = _f_[2];
@@ -4584,19 +4612,19 @@
          x1$0 = l[1],
           /*<<list.ml:492:18>>*/ c$1 =
             /*<<list.ml:492:18>>*/ caml_call2(cmp, x1$0, x2$0);
-         /*<<list.ml:493:10>>*/ if(0 === c$1)
+         /*<<list.ml:493:10>>*/ if( /*<<list.ml:493:10>>*/ Object.is(0, c$1))
           /*<<list.ml:494:20>>*/ var
            /*<<list.ml:494:20>>*/ c$2 =
              /*<<list.ml:494:20>>*/ caml_call2(cmp, x2$0, x3),
            /*<<list.ml:495:12>>*/ _g_ =
-            0 === c$2
+             /*<<list.ml:495:12>>*/ Object.is(0, c$2)
              ? [0, x2$0, 0]
              : 0 < c$2 ? [0, x2$0, [0, x3, 0]] : [0, x3, [0, x2$0, 0]],
           s$0 = _g_;
         else if(0 < c$1){
           /*<<list.ml:497:20>>*/  /*<<list.ml:497:20>>*/ var
           c$3 =  /*<<list.ml:497:20>>*/ caml_call2(cmp, x2$0, x3);
-          /*<<list.ml:498:12>>*/ if(0 === c$3)
+          /*<<list.ml:498:12>>*/ if( /*<<list.ml:498:12>>*/ Object.is(0, c$3))
           var _h_ = [0, x1$0, [0, x2$0, 0]];
          else if(0 < c$3)
           var _h_ = [0, x1$0, [0, x2$0, [0, x3, 0]]];
@@ -4605,7 +4633,7 @@
             /*<<list.ml:501:22>>*/ c$4 =
               /*<<list.ml:501:22>>*/ caml_call2(cmp, x1$0, x3),
             /*<<list.ml:502:14>>*/ _i_ =
-             0 === c$4
+              /*<<list.ml:502:14>>*/ Object.is(0, c$4)
               ? [0, x1$0, [0, x2$0, 0]]
               : 0
                 < c$4
@@ -4617,7 +4645,7 @@
         else{
           /*<<list.ml:506:20>>*/  /*<<list.ml:506:20>>*/ var
           c$5 =  /*<<list.ml:506:20>>*/ caml_call2(cmp, x1$0, x3);
-          /*<<list.ml:507:12>>*/ if(0 === c$5)
+          /*<<list.ml:507:12>>*/ if( /*<<list.ml:507:12>>*/ Object.is(0, c$5))
           var _j_ = [0, x2$0, [0, x1$0, 0]];
          else if(0 < c$5)
           var _j_ = [0, x2$0, [0, x1$0, [0, x3, 0]]];
@@ -4626,7 +4654,7 @@
             /*<<list.ml:510:22>>*/ c$6 =
               /*<<list.ml:510:22>>*/ caml_call2(cmp, x2$0, x3),
             /*<<list.ml:511:14>>*/ _k_ =
-             0 === c$6
+              /*<<list.ml:511:14>>*/ Object.is(0, c$6)
               ? [0, x2$0, [0, x1$0, 0]]
               : 0
                 < c$6
@@ -4661,7 +4689,7 @@
          h1 = l1[1],
           /*<<list.ml:425:16>>*/ c =
             /*<<list.ml:425:16>>*/ caml_call2(cmp, h1, h2);
-         /*<<list.ml:426:8>>*/ if(0 === c){
+         /*<<list.ml:426:8>>*/ if( /*<<list.ml:426:8>>*/ Object.is(0, c)){
           /*<<list.ml:426:38>>*/ var
            /*<<list.ml:426:38>>*/ accu$0 = [0, h1, accu],
           l1 = t1,
@@ -4703,7 +4731,7 @@
    function compare_length_with(l, n){
      /*<<list.ml:535:2>>*/ var l$0 = l, n$0 = n;
      /*<<list.ml:535:2>>*/ for(;;){
-     if(! l$0) return 0 === n$0 ? 0 : 0 < n$0 ? -1 : 1;
+     if(! l$0) return Object.is(0, n$0) ? 0 : 0 < n$0 ? -1 : 1;
      var l$1 = l$0[2];
       /*<<list.ml:540:4>>*/ if(0 >= n$0)  /*<<list.ml:540:19>>*/ return 1;
       /*<<list.ml:541:6>>*/ var
@@ -4747,7 +4775,8 @@
       a2 = l2$0[1],
        /*<<list.ml:566:12>>*/ c =
          /*<<list.ml:566:12>>*/ caml_call2(cmp, a1, a2);
-      /*<<list.ml:567:4>>*/ if(0 !== c)  /*<<list.ml:567:19>>*/ return c;
+      /*<<list.ml:567:4>>*/ if(!  /*<<list.ml:567:4>>*/ Object.is(0, c))
+       /*<<list.ml:567:19>>*/ return c;
      var l1$0 = l1$1, l2$0 = l2$1;
     }
     /*<<list.ml:568:26>>*/ }
@@ -5236,7 +5265,10 @@
      _ag_ = param - 9 | 0;
     a:
     {
-     if(4 < _ag_ >>> 0){if(23 !== _ag_) break a;} else if(2 === _ag_) break a;
+     if(4 < _ag_ >>> 0){
+      if(! Object.is(23, _ag_)) break a;
+     }
+     else if(Object.is(2, _ag_)) break a;
       /*<<bytes.ml:152:41>>*/ return 1;
     }
      /*<<bytes.ml:153:9>>*/ return 0;
@@ -5284,7 +5316,7 @@
           break a;
          }
          if(11 <= match){
-          if(13 === match) break b;
+          if(Object.is(13, match)) break b;
          }
          else if(8 <= match) break b;
         }
@@ -5318,7 +5350,7 @@
         c:
         {
          if(35 <= c){
-          if(92 !== c){if(127 <= c) break c; break b;}
+          if(! Object.is(92, c)){if(127 <= c) break c; break b;}
          }
          else{
           if(32 > c){
@@ -5379,7 +5411,8 @@
     /*<<bytes.ml:228:17>>*/ }
    function map(f, s){
      /*<<bytes.ml:231:2>>*/ var l = caml_ml_bytes_length(s);
-     /*<<bytes.ml:232:2>>*/ if(0 === l)  /*<<bytes.ml:232:16>>*/ return s;
+     /*<<bytes.ml:232:2>>*/ if( /*<<bytes.ml:232:2>>*/ Object.is(0, l))
+      /*<<bytes.ml:232:16>>*/ return s;
      /*<<bytes.ml:233:12>>*/ var
       /*<<bytes.ml:233:12>>*/ r =
         /*<<bytes.ml:233:12>>*/ caml_create_bytes(l),
@@ -5401,7 +5434,8 @@
     /*<<bytes.ml:236:5>>*/ }
    function mapi(f, s){
      /*<<bytes.ml:239:2>>*/ var l = caml_ml_bytes_length(s);
-     /*<<bytes.ml:240:2>>*/ if(0 === l)  /*<<bytes.ml:240:16>>*/ return s;
+     /*<<bytes.ml:240:2>>*/ if( /*<<bytes.ml:240:2>>*/ Object.is(0, l))
+      /*<<bytes.ml:240:16>>*/ return s;
      /*<<bytes.ml:241:12>>*/ var
       /*<<bytes.ml:241:12>>*/ r =
         /*<<bytes.ml:241:12>>*/ caml_create_bytes(l),
@@ -5451,7 +5485,7 @@
         /*<<bytes.ml:256:9>>*/ caml_call2
         (f, caml_bytes_unsafe_get(a, i), r[1]);
        /*<<bytes.ml:255:2>>*/  /*<<bytes.ml:255:2>>*/ var _Q_ = i - 1 | 0;
-      if(0 === i) break;
+      if(Object.is(0, i)) break;
       var i = _Q_;
      }
     }
@@ -5488,7 +5522,7 @@
      /*<<bytes.ml:277:24>>*/ return map(Stdlib_Char[3], s);
     /*<<bytes.ml:277:50>>*/ }
    function apply1(f, s){
-     /*<<bytes.ml:280:2>>*/ if(0 === caml_ml_bytes_length(s))
+     /*<<bytes.ml:280:2>>*/ if(Object.is(0, caml_ml_bytes_length(s)))
       /*<<bytes.ml:280:23>>*/ return s;
      /*<<bytes.ml:281:12>>*/  /*<<bytes.ml:281:12>>*/ var r = copy(s);
     caml_bytes_unsafe_set
@@ -5675,7 +5709,7 @@
        j[1] = i;
       }
        /*<<bytes.ml:400:2>>*/  /*<<bytes.ml:400:2>>*/ var _G_ = i - 1 | 0;
-      if(0 === i) break;
+      if(Object.is(0, i)) break;
       var i = _G_;
      }
     }
@@ -6767,7 +6801,10 @@
      /*<<string.ml:97:15>>*/  /*<<string.ml:97:15>>*/ var _J_ = param - 9 | 0;
     a:
     {
-     if(4 < _J_ >>> 0){if(23 !== _J_) break a;} else if(2 === _J_) break a;
+     if(4 < _J_ >>> 0){
+      if(! Object.is(23, _J_)) break a;
+     }
+     else if(Object.is(2, _J_)) break a;
       /*<<string.ml:98:41>>*/ return 1;
     }
      /*<<string.ml:99:9>>*/ return 0;
@@ -6994,7 +7031,7 @@
        j[1] = i;
       }
        /*<<string.ml:228:2>>*/  /*<<string.ml:228:2>>*/ var _v_ = i - 1 | 0;
-      if(0 === i) break;
+      if(Object.is(0, i)) break;
       var i = _v_;
      }
     }
@@ -7278,8 +7315,8 @@
         /*<<marshal.ml:71:10>>*/ runtime.caml_output_value_to_string(0, _a_),
       /*<<marshal.ml:72:8>>*/ match =
         /*<<marshal.ml:72:8>>*/ runtime.caml_string_get(s, 3);
-    if(189 === match)  /*<<marshal.ml:73:14>>*/ return 1;
-    if(190 === match)  /*<<marshal.ml:74:14>>*/ return 0;
+    if(Object.is(189, match))  /*<<marshal.ml:73:14>>*/ return 1;
+    if(Object.is(190, match))  /*<<marshal.ml:74:14>>*/ return 0;
      /*<<marshal.ml:75:9>>*/ throw  /*<<marshal.ml:75:9>>*/ caml_maybe_attach_backtrace
            ([0, Assert_failure, _b_], 1);
     /*<<marshal.ml:75:21>>*/ }
@@ -7348,7 +7385,8 @@
     cst_Array_init = "Array.init",
     cst_Stdlib_Array_Bottom = "Stdlib.Array.Bottom";
    function init(l, f){
-     /*<<array.ml:48:2>>*/ if(0 === l)  /*<<array.ml:48:16>>*/ return [0];
+     /*<<array.ml:48:2>>*/ if(Object.is(0, l))
+      /*<<array.ml:48:16>>*/ return [0];
     if(0 > l)
       /*<<array.ml:49:16>>*/ return  /*<<array.ml:49:16>>*/ caml_call1
              (Stdlib[1], cst_Array_init);
@@ -7389,16 +7427,16 @@
     /*<<array.ml:64:5>>*/ }
    function copy(a){
      /*<<array.ml:67:2>>*/ var l = a.length - 1;
-     /*<<array.ml:67:22>>*/ return 0 === l
+     /*<<array.ml:67:22>>*/ return  /*<<array.ml:67:22>>*/ Object.is(0, l)
             ? [0]
             :  /*<<array.ml:67:46>>*/ caml_array_sub(a, 0, l);
     /*<<array.ml:67:62>>*/ }
    function append(a1, a2){
      /*<<array.ml:70:2>>*/ var l1 = a1.length - 1;
-     /*<<array.ml:71:2>>*/ return 0 === l1
+     /*<<array.ml:71:2>>*/ return  /*<<array.ml:71:2>>*/ Object.is(0, l1)
             ? copy(a2)
-            : 0
-              === a2.length - 1
+            : Object.is
+               (0, a2.length - 1)
               ?  /*<<array.ml:72:29>>*/ caml_array_sub(a1, 0, l1)
               :  /*<<array.ml:73:7>>*/ runtime.caml_array_append(a1, a2);
     /*<<array.ml:73:24>>*/ }
@@ -7467,7 +7505,8 @@
     /*<<array.ml:98:73>>*/ }
    function map(f, a){
      /*<<array.ml:101:2>>*/ var l = a.length - 1;
-     /*<<array.ml:102:2>>*/ if(0 === l)  /*<<array.ml:102:16>>*/ return [0];
+     /*<<array.ml:102:2>>*/ if( /*<<array.ml:102:2>>*/ Object.is(0, l))
+      /*<<array.ml:102:16>>*/ return [0];
      /*<<array.ml:103:12>>*/ var
       /*<<array.ml:103:12>>*/ r =
         /*<<array.ml:103:12>>*/ caml_make_vect
@@ -7525,7 +7564,7 @@
     if(! Object.is(la, lb))
       /*<<array.ml:124:4>>*/ return  /*<<array.ml:124:4>>*/ caml_call1
              (Stdlib[1], cst_Array_map2_arrays_must_hav);
-    if(0 === la)  /*<<array.ml:126:19>>*/ return [0];
+    if(Object.is(0, la))  /*<<array.ml:126:19>>*/ return [0];
      /*<<array.ml:127:14>>*/ var
       /*<<array.ml:127:14>>*/ r =
         /*<<array.ml:127:14>>*/ caml_make_vect
@@ -7562,7 +7601,8 @@
     /*<<array.ml:136:56>>*/ }
    function mapi(f, a){
      /*<<array.ml:139:2>>*/ var l = a.length - 1;
-     /*<<array.ml:140:2>>*/ if(0 === l)  /*<<array.ml:140:16>>*/ return [0];
+     /*<<array.ml:140:2>>*/ if( /*<<array.ml:140:2>>*/ Object.is(0, l))
+      /*<<array.ml:140:16>>*/ return [0];
      /*<<array.ml:141:12>>*/ var
       /*<<array.ml:141:12>>*/ r =
         /*<<array.ml:141:12>>*/ caml_make_vect
@@ -7640,7 +7680,7 @@
     /*<<array.ml:172:4>>*/ }
    function fold_left_map(f, acc, input_array){
      /*<<array.ml:175:2>>*/ var len = input_array.length - 1;
-     /*<<array.ml:176:2>>*/ if(0 === len)
+     /*<<array.ml:176:2>>*/ if( /*<<array.ml:176:2>>*/ Object.is(0, len))
       /*<<array.ml:176:18>>*/ return [0, acc, [0]];
      /*<<array.ml:177:19>>*/ var
       /*<<array.ml:177:19>>*/ match =
@@ -7678,7 +7718,7 @@
      for(;;){
       r[1] =  /*<<array.ml:191:9>>*/ caml_call2(f, a[1 + i], r[1]);
        /*<<array.ml:190:2>>*/  /*<<array.ml:190:2>>*/ var _R_ = i - 1 | 0;
-      if(0 === i) break;
+      if(Object.is(0, i)) break;
       var i = _R_;
      }
     }
@@ -7745,7 +7785,8 @@
      /*<<array.ml:234:4>>*/ for(;;){
      if(Object.is(i, n))  /*<<array.ml:234:18>>*/ return 0;
       /*<<array.ml:235:12>>*/ if
-      (0 ===  /*<<array.ml:235:12>>*/ runtime.caml_compare(a[1 + i], x))
+      ( /*<<array.ml:235:12>>*/ Object.is
+        (0,  /*<<array.ml:235:12>>*/ runtime.caml_compare(a[1 + i], x)))
        /*<<array.ml:235:48>>*/ return 1;
       /*<<array.ml:236:9>>*/ var
        /*<<array.ml:236:9>>*/ i$0 = i + 1 | 0,
@@ -7845,7 +7886,7 @@
     if(! Object.is(na, nb))
       /*<<array.ml:306:19>>*/  /*<<array.ml:306:19>>*/ caml_call1
       (Stdlib[1], cst_Array_combine);
-    if(0 === na)  /*<<array.ml:307:17>>*/ return [0];
+    if(Object.is(0, na))  /*<<array.ml:307:17>>*/ return [0];
      /*<<array.ml:309:12>>*/ var
       /*<<array.ml:309:12>>*/ x =
         /*<<array.ml:309:12>>*/ caml_make_vect(na, [0, a[1], b[1]]),
@@ -7936,7 +7977,7 @@
         /*<<array.ml:339:61>>*/ caml_check_bound(a, i$0)[1 + i$0] = e$1;
       }
        /*<<array.ml:357:38>>*/  /*<<array.ml:357:38>>*/ var _C_ = i$6 - 1 | 0;
-      if(0 === i$6) break;
+      if(Object.is(0, i$6)) break;
       var i$6 = _C_;
      }
     }
@@ -7991,7 +8032,7 @@
          /*<<array.ml:351:49>>*/ caml_check_bound(a, 0)[1] = e$0;
        }
         /*<<array.ml:358:2>>*/  /*<<array.ml:358:2>>*/ var _B_ = i$4 - 1 | 0;
-       if(2 === i$4) break;
+       if(Object.is(2, i$4)) break;
        var i$4 = _B_;
       }
      }
@@ -8305,7 +8346,9 @@
             (x, neg_infinity);
     /*<<float.ml:122:38>>*/ }
    function equal(x, y){
-     /*<<float.ml:136:16>>*/ return 0 === caml_float_compare(x, y) ? 1 : 0;
+     /*<<float.ml:136:16>>*/ return Object.is(0, caml_float_compare(x, y))
+            ? 1
+            : 0;
     /*<<float.ml:136:31>>*/ }
    function min(x, y){
      /*<<float.ml:139:2>>*/ a:
@@ -8720,7 +8763,7 @@
      for(;;){
       r[1] =  /*<<float.ml:338:11>>*/ caml_call2(f, a[1 + i], r[1]);
        /*<<float.ml:337:4>>*/  /*<<float.ml:337:4>>*/ var _L_ = i - 1 | 0;
-      if(0 === i) break;
+      if(Object.is(0, i)) break;
       var i = _L_;
      }
     }
@@ -8754,7 +8797,8 @@
      /*<<float.ml:362:4>>*/ var n = a.length - 1, i = 0;
      /*<<float.ml:364:6>>*/ for(;;){
      if(Object.is(i, n))  /*<<float.ml:364:20>>*/ return 0;
-     if(0 ===  /*<<float.ml:365:22>>*/ caml_float_compare(a[1 + i], x))
+     if
+      (Object.is(0,  /*<<float.ml:365:22>>*/ caml_float_compare(a[1 + i], x)))
        /*<<float.ml:365:50>>*/ return 1;
       /*<<float.ml:366:11>>*/ var
        /*<<float.ml:366:11>>*/ i$0 = i + 1 | 0,
@@ -8890,7 +8934,7 @@
         (a, i$0, e$1);
       }
        /*<<float.ml:467:40>>*/  /*<<float.ml:467:40>>*/ var _J_ = i$6 - 1 | 0;
-      if(0 === i$6) break;
+      if(Object.is(0, i$6)) break;
       var i$6 = _J_;
      }
     }
@@ -8947,7 +8991,7 @@
          (a, 0, e$0);
        }
         /*<<float.ml:468:4>>*/  /*<<float.ml:468:4>>*/ var _I_ = i$4 - 1 | 0;
-       if(2 === i$4) break;
+       if(Object.is(2, i$4)) break;
        var i$4 = _I_;
       }
      }
@@ -9124,7 +9168,8 @@
     /*<<float.ml:565:17>>*/ }
    function map_to_array(f, a){
      /*<<float.ml:569:4>>*/ var l = a.length - 1;
-     /*<<float.ml:570:4>>*/ if(0 === l)  /*<<float.ml:570:18>>*/ return [0];
+     /*<<float.ml:570:4>>*/ if( /*<<float.ml:570:4>>*/ Object.is(0, l))
+      /*<<float.ml:570:18>>*/ return [0];
      /*<<float.ml:571:14>>*/ var
       /*<<float.ml:571:14>>*/ r =
         /*<<float.ml:571:14>>*/ runtime.caml_make_vect
@@ -9328,7 +9373,7 @@
      /*<<int32.ml:53:15>>*/ return n ^ -1;
     /*<<int32.ml:53:29>>*/ }
    var _a_ = Stdlib_Sys[9];
-   if(32 === _a_)
+   if(Object.is(32, _a_))
      /*<<int32.ml:58:6>>*/ var
       /*<<int32.ml:58:6>>*/ max_int$0 = Stdlib[19],
      unsigned_to_int =
@@ -9340,7 +9385,7 @@
          /*<<int32.ml:63:10>>*/ return 0;
         /*<<int32.ml:63:14>>*/ };
    else{
-    if(64 !== _a_)
+    if(! Object.is(64, _a_))
       /*<<int32.ml:69:6>>*/ throw  /*<<int32.ml:69:6>>*/ caml_maybe_attach_backtrace
             ([0, Assert_failure, _b_], 1);
     var
@@ -9367,8 +9412,8 @@
     /*<<int32.ml:79:24>>*/ }
    var compare = caml_int_compare;
    function equal(x, y){
-     /*<<int32.ml:84:26>>*/ return 0
-            ===  /*<<int32.ml:84:26>>*/ caml_int_compare(x, y)
+     /*<<int32.ml:84:26>>*/ return Object.is
+             (0,  /*<<int32.ml:84:26>>*/ caml_int_compare(x, y))
             ? 1
             : 0;
     /*<<int32.ml:84:41>>*/ }
@@ -9515,8 +9560,8 @@
             (x, y);
     /*<<int64.ml:82:46>>*/ }
    function equal(x, y){
-     /*<<int64.ml:83:26>>*/ return 0
-            ===  /*<<int64.ml:83:26>>*/ caml_int64_compare(x, y)
+     /*<<int64.ml:83:26>>*/ return Object.is
+             (0,  /*<<int64.ml:83:26>>*/ caml_int64_compare(x, y))
             ? 1
             : 0;
     /*<<int64.ml:83:41>>*/ }
@@ -9659,8 +9704,8 @@
     /*<<nativeint.ml:68:24>>*/ }
    var compare = caml_int_compare;
    function equal(x, y){
-     /*<<nativeint.ml:73:26>>*/ return 0
-            ===  /*<<nativeint.ml:73:26>>*/ caml_int_compare(x, y)
+     /*<<nativeint.ml:73:26>>*/ return Object.is
+             (0,  /*<<nativeint.ml:73:26>>*/ caml_int_compare(x, y))
             ? 1
             : 0;
     /*<<nativeint.ml:73:41>>*/ }
@@ -10434,7 +10479,8 @@
           l = t[1],
            /*<<set.ml:135:18>>*/ c =
              /*<<set.ml:135:18>>*/ caml_call2(Ord[1], x, v);
-          /*<<set.ml:136:10>>*/ if(0 === c)  /*<<set.ml:136:24>>*/ return t;
+          /*<<set.ml:136:10>>*/ if( /*<<set.ml:136:10>>*/ Object.is(0, c))
+           /*<<set.ml:136:24>>*/ return t;
          if(0 <= c){
            /*<<set.ml:141:21>>*/  /*<<set.ml:141:21>>*/ var rr = add(x, r);
           return Object.is(r, rr) ? t : bal(l, v, rr);
@@ -10548,7 +10594,7 @@
           l = param[1],
            /*<<set.ml:234:18>>*/ c =
              /*<<set.ml:234:18>>*/ caml_call2(Ord[1], x, v);
-          /*<<set.ml:235:10>>*/ if(0 === c)
+          /*<<set.ml:235:10>>*/ if( /*<<set.ml:235:10>>*/ Object.is(0, c))
            /*<<set.ml:235:24>>*/ return [0, l, 1, r];
          if(0 <= c){
            /*<<set.ml:239:33>>*/ var
@@ -10579,7 +10625,7 @@
            l = param$0[1],
             /*<<set.ml:250:18>>*/ c =
               /*<<set.ml:250:18>>*/ caml_call2(Ord[1], x, v),
-           _S_ = 0 === c ? 1 : 0;
+           _S_ = Object.is(0, c) ? 1 : 0;
           if(_S_) return _S_;
           var r$0 = 0 <= c ? r : l, param$0 = r$0;
          }
@@ -10592,7 +10638,7 @@
           t1 = t[1],
            /*<<set.ml:256:18>>*/ c =
              /*<<set.ml:256:18>>*/ caml_call2(Ord[1], x, v);
-          /*<<set.ml:257:10>>*/ if(0 === c){
+          /*<<set.ml:257:10>>*/ if( /*<<set.ml:257:10>>*/ Object.is(0, c)){
           if(! t1)  /*<<set.ml:210:22>>*/ return t2;
           if(! t2)  /*<<set.ml:211:22>>*/ return t1;
            /*<<set.ml:212:38>>*/  /*<<set.ml:212:38>>*/ var
@@ -10620,7 +10666,7 @@
           v1 = s1[2],
           l1 = s1[1];
          if(h2 <= h1){
-          if(1 === h2)  /*<<set.ml:274:27>>*/ return add(v2, s1);
+          if(Object.is(1, h2))  /*<<set.ml:274:27>>*/ return add(v2, s1);
            /*<<set.ml:275:32>>*/ var
             /*<<set.ml:275:32>>*/ match = split(v1, s2),
            r2$0 = match[3],
@@ -10628,7 +10674,7 @@
             /*<<set.ml:276:36>>*/ _P_ = union(r1, r2$0);
            /*<<set.ml:276:36>>*/ return join(union(l1, l2$0), v1, _P_);
          }
-         if(1 === h1)  /*<<set.ml:279:27>>*/ return add(v1, s2);
+         if(Object.is(1, h1))  /*<<set.ml:279:27>>*/ return add(v1, s2);
           /*<<set.ml:280:32>>*/ var
            /*<<set.ml:280:32>>*/ match$0 = split(v2, s1),
           r1$0 = match$0[3],
@@ -10669,7 +10715,8 @@
           l = param[1],
            /*<<set.ml:307:18>>*/ c =
              /*<<set.ml:307:18>>*/ caml_call2(Ord[1], x, v);
-          /*<<set.ml:308:10>>*/ if(0 === c)  /*<<set.ml:308:24>>*/ return 0;
+          /*<<set.ml:308:10>>*/ if( /*<<set.ml:308:10>>*/ Object.is(0, c))
+           /*<<set.ml:308:24>>*/ return 0;
          if(0 <= c){
            /*<<set.ml:314:18>>*/  /*<<set.ml:314:18>>*/ var
            match = split_bis(x, r);
@@ -10761,7 +10808,8 @@
            v1 = e1[1],
             /*<<set.ml:351:18>>*/ c =
               /*<<set.ml:351:18>>*/ caml_call2(Ord[1], v1, v2);
-           /*<<set.ml:352:10>>*/ if(0 !== c)  /*<<set.ml:353:15>>*/ return c;
+           /*<<set.ml:352:10>>*/ if(!  /*<<set.ml:352:10>>*/ Object.is(0, c))
+            /*<<set.ml:353:15>>*/ return c;
            /*<<set.ml:354:45>>*/ var
             /*<<set.ml:354:45>>*/ e2$1 = cons_enum(r2, e2$0),
             /*<<set.ml:354:27>>*/ e1$1 = cons_enum(r1, e1$0),
@@ -10770,7 +10818,7 @@
          }
          /*<<set.ml:357:55>>*/ }
         function equal(s1, s2){
-          /*<<set.ml:360:6>>*/ return 0 === compare(s1, s2) ? 1 : 0;
+          /*<<set.ml:360:6>>*/ return Object.is(0, compare(s1, s2)) ? 1 : 0;
          /*<<set.ml:360:23>>*/ }
         function subset(s1, s2){
           /*<<set.ml:363:6>>*/ var s1$0 = s1, s2$0 = s2;
@@ -10786,7 +10834,7 @@
            l1 = s1$0[1],
             /*<<set.ml:369:18>>*/ c =
               /*<<set.ml:369:18>>*/ caml_call2(Ord[1], v1, v2);
-           /*<<set.ml:370:10>>*/ if(0 === c){
+           /*<<set.ml:370:10>>*/ if( /*<<set.ml:370:10>>*/ Object.is(0, c)){
             /*<<set.ml:371:12>>*/  /*<<set.ml:371:12>>*/ var
             _F_ = subset(l1, l2);
             /*<<set.ml:371:12>>*/ if(! _F_)  /*<<set.ml:371:12>>*/ return _F_;
@@ -10945,7 +10993,8 @@
            l = param$0[1],
             /*<<set.ml:434:18>>*/ c =
               /*<<set.ml:434:18>>*/ caml_call2(Ord[1], x, v);
-           /*<<set.ml:435:10>>*/ if(0 === c)  /*<<set.ml:435:24>>*/ return v;
+           /*<<set.ml:435:10>>*/ if( /*<<set.ml:435:10>>*/ Object.is(0, c))
+            /*<<set.ml:435:24>>*/ return v;
           var r$0 = 0 <= c ? r : l, param$0 = r$0;
          }
         }
@@ -11051,7 +11100,7 @@
            l = param$0[1],
             /*<<set.ml:513:18>>*/ c =
               /*<<set.ml:513:18>>*/ caml_call2(Ord[1], x, v);
-           /*<<set.ml:514:10>>*/ if(0 === c)
+           /*<<set.ml:514:10>>*/ if( /*<<set.ml:514:10>>*/ Object.is(0, c))
             /*<<set.ml:514:24>>*/ return [0, v];
           var r$0 = 0 <= c ? r : l, param$0 = r$0;
          }
@@ -11059,13 +11108,13 @@
         function try_join(l, v, r){
           /*<<set.ml:521:6>>*/ a:
          {
-          if(0 !== l){
+          if(! Object.is(0, l)){
             /*<<set.ml:521:35>>*/  /*<<set.ml:521:35>>*/ var _v_ = max_elt(l);
             /*<<set.ml:521:23>>*/ if
             (0 <=  /*<<set.ml:521:23>>*/ caml_call2(Ord[1], _v_, v))
             break a;
           }
-          if(0 !== r){
+          if(! Object.is(0, r)){
             /*<<set.ml:522:37>>*/  /*<<set.ml:522:37>>*/ var _u_ = min_elt(r);
             /*<<set.ml:522:23>>*/ if
             (0 <=  /*<<set.ml:522:23>>*/ caml_call2(Ord[1], v, _u_))
@@ -11259,7 +11308,7 @@
             l = s$0[1],
              /*<<set.ml:616:24>>*/ n =
                /*<<set.ml:616:24>>*/ caml_call2(Ord[1], v, low);
-           if(0 !== n){
+           if(! Object.is(0, n)){
             if(0 <= n){
               /*<<set.ml:619:31>>*/ var
                /*<<set.ml:619:31>>*/ c$0 = [0, v, r, c],
@@ -11455,7 +11504,7 @@
           l = m[1],
            /*<<map.ml:129:18>>*/ c =
              /*<<map.ml:129:18>>*/ caml_call2(Ord[1], x, v);
-          /*<<map.ml:130:10>>*/ if(0 === c)
+          /*<<map.ml:130:10>>*/ if( /*<<map.ml:130:10>>*/ Object.is(0, c))
           return Object.is(d, data) ? m : [0, l, x, data, r, h];
          if(0 <= c){
            /*<<map.ml:136:21>>*/  /*<<map.ml:136:21>>*/ var
@@ -11479,7 +11528,8 @@
            l = param$0[1],
             /*<<map.ml:143:18>>*/ c =
               /*<<map.ml:143:18>>*/ caml_call2(Ord[1], x, v);
-           /*<<map.ml:144:10>>*/ if(0 === c)  /*<<map.ml:144:24>>*/ return d;
+           /*<<map.ml:144:10>>*/ if( /*<<map.ml:144:10>>*/ Object.is(0, c))
+            /*<<map.ml:144:24>>*/ return d;
           var r$0 = 0 <= c ? r : l, param$0 = r$0;
          }
         }
@@ -11602,7 +11652,7 @@
            l = param$0[1],
             /*<<map.ml:223:18>>*/ c =
               /*<<map.ml:223:18>>*/ caml_call2(Ord[1], x, v);
-           /*<<map.ml:224:10>>*/ if(0 === c)
+           /*<<map.ml:224:10>>*/ if( /*<<map.ml:224:10>>*/ Object.is(0, c))
             /*<<map.ml:224:24>>*/ return [0, d];
           var r$0 = 0 <= c ? r : l, param$0 = r$0;
          }
@@ -11617,7 +11667,7 @@
            l = param$0[1],
             /*<<map.ml:231:18>>*/ c =
               /*<<map.ml:231:18>>*/ caml_call2(Ord[1], x, v),
-           _G_ = 0 === c ? 1 : 0;
+           _G_ = Object.is(0, c) ? 1 : 0;
           if(_G_) return _G_;
           var r$0 = 0 <= c ? r : l, param$0 = r$0;
          }
@@ -11702,7 +11752,7 @@
           l = m[1],
            /*<<map.ml:271:18>>*/ c =
              /*<<map.ml:271:18>>*/ caml_call2(Ord[1], x, v);
-          /*<<map.ml:272:10>>*/ if(0 === c)
+          /*<<map.ml:272:10>>*/ if( /*<<map.ml:272:10>>*/ Object.is(0, c))
            /*<<map.ml:272:24>>*/ return _d_(l, r);
          if(0 <= c){
            /*<<map.ml:276:21>>*/  /*<<map.ml:276:21>>*/ var rr = remove(x, r);
@@ -11727,7 +11777,7 @@
           l = m[1],
            /*<<map.ml:285:18>>*/ c =
              /*<<map.ml:285:18>>*/ caml_call2(Ord[1], x, v);
-          /*<<map.ml:286:10>>*/ if(0 === c){
+          /*<<map.ml:286:10>>*/ if( /*<<map.ml:286:10>>*/ Object.is(0, c)){
            /*<<map.ml:287:18>>*/  /*<<map.ml:287:18>>*/ var
            match =  /*<<map.ml:287:18>>*/ caml_call1(f, [0, d]);
           if(! match)  /*<<map.ml:288:22>>*/ return _d_(l, r);
@@ -11906,7 +11956,7 @@
           l = param[1],
            /*<<map.ml:391:18>>*/ c =
              /*<<map.ml:391:18>>*/ caml_call2(Ord[1], x, v);
-          /*<<map.ml:392:10>>*/ if(0 === c)
+          /*<<map.ml:392:10>>*/ if( /*<<map.ml:392:10>>*/ Object.is(0, c))
            /*<<map.ml:392:24>>*/ return [0, l, [0, d], r];
          if(0 <= c){
            /*<<map.ml:396:33>>*/ var
@@ -12102,10 +12152,12 @@
            v1 = e1[1],
             /*<<map.ml:475:20>>*/ c =
               /*<<map.ml:475:20>>*/ caml_call2(Ord[1], v1, v2);
-           /*<<map.ml:476:12>>*/ if(0 !== c)  /*<<map.ml:476:27>>*/ return c;
+           /*<<map.ml:476:12>>*/ if(!  /*<<map.ml:476:12>>*/ Object.is(0, c))
+            /*<<map.ml:476:27>>*/ return c;
            /*<<map.ml:477:20>>*/  /*<<map.ml:477:20>>*/ var
            c$0 =  /*<<map.ml:477:20>>*/ caml_call2(cmp, d1, d2);
-           /*<<map.ml:478:12>>*/ if(0 !== c$0)
+           /*<<map.ml:478:12>>*/ if
+           (!  /*<<map.ml:478:12>>*/ Object.is(0, c$0))
             /*<<map.ml:478:27>>*/ return c$0;
            /*<<map.ml:479:42>>*/ var
             /*<<map.ml:479:42>>*/ e2$1 = cons_enum(r2, e2$0),
@@ -12133,7 +12185,9 @@
            d1 = e1[2],
            v1 = e1[1],
            _r_ =
-             0 ===  /*<<map.ml:489:12>>*/ caml_call2(Ord[1], v1, v2) ? 1 : 0;
+             Object.is(0,  /*<<map.ml:489:12>>*/ caml_call2(Ord[1], v1, v2))
+              ? 1
+              : 0;
           if(_r_){
             /*<<map.ml:489:37>>*/  /*<<map.ml:489:37>>*/ var
             _s_ =  /*<<map.ml:489:37>>*/ caml_call2(cmp, d1, d2);
@@ -12258,7 +12312,7 @@
             l = m$0[1],
              /*<<map.ml:540:24>>*/ n =
                /*<<map.ml:540:24>>*/ caml_call2(Ord[1], v, low);
-           if(0 !== n){
+           if(! Object.is(0, n)){
             if(0 <= n){
               /*<<map.ml:543:31>>*/ var
                /*<<map.ml:543:31>>*/ c$0 = [0, v, d, r, c],
@@ -12415,7 +12469,7 @@
      /*<<stack.ml:50:13>>*/ return [0, hd];
     /*<<stack.ml:51:17>>*/ }
    function is_empty(s){
-     /*<<stack.ml:53:17>>*/ return 0 === s[1] ? 1 : 0;
+     /*<<stack.ml:53:17>>*/ return Object.is(0, s[1]) ? 1 : 0;
     /*<<stack.ml:53:27>>*/ }
    function length(s){
      /*<<stack.ml:55:15>>*/ return s[2];
@@ -12568,7 +12622,7 @@
     }
     /*<<queue.ml:108:74>>*/ }
    function is_empty(q){
-     /*<<queue.ml:111:2>>*/ return 0 === q[1] ? 1 : 0;
+     /*<<queue.ml:111:2>>*/ return Object.is(0, q[1]) ? 1 : 0;
     /*<<queue.ml:111:14>>*/ }
    function length(q){
      /*<<queue.ml:114:2>>*/ return q[1];
@@ -12834,7 +12888,7 @@
       n =
          /*<<buffer.ml:128:10>>*/ caml_call3
          (Stdlib_Bytes[51], b[1][1], pos, u);
-      /*<<buffer.ml:129:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
+      /*<<buffer.ml:129:2>>*/ if(!  /*<<buffer.ml:129:2>>*/ Object.is(0, n)){b[2] = pos + n | 0; return 0;}
       /*<<buffer.ml:130:8>>*/ resize(b, uchar_utf_8_byte_length_max);
     }
     /*<<buffer.ml:131:30>>*/ }
@@ -12847,7 +12901,7 @@
       n =
          /*<<buffer.ml:136:10>>*/ caml_call3
          (Stdlib_Bytes[54], b[1][1], pos, u);
-      /*<<buffer.ml:137:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
+      /*<<buffer.ml:137:2>>*/ if(!  /*<<buffer.ml:137:2>>*/ Object.is(0, n)){b[2] = pos + n | 0; return 0;}
       /*<<buffer.ml:138:8>>*/ resize(b, uchar_utf_16_byte_length_max);
     }
     /*<<buffer.ml:139:30>>*/ }
@@ -12860,7 +12914,7 @@
       n =
          /*<<buffer.ml:144:10>>*/ caml_call3
          (Stdlib_Bytes[57], b[1][1], pos, u);
-      /*<<buffer.ml:145:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
+      /*<<buffer.ml:145:2>>*/ if(!  /*<<buffer.ml:145:2>>*/ Object.is(0, n)){b[2] = pos + n | 0; return 0;}
       /*<<buffer.ml:146:8>>*/ resize(b, uchar_utf_16_byte_length_max);
     }
     /*<<buffer.ml:147:30>>*/ }
@@ -12941,12 +12995,12 @@
      ofs = ofs$1,
      to_read = to_read$1;
      /*<<buffer.ml:185:4>>*/ for(;;){
-     if(0 !== to_read){
+     if(! Object.is(0, to_read)){
        /*<<buffer.ml:187:14>>*/  /*<<buffer.ml:187:14>>*/ var
        r =
           /*<<buffer.ml:187:14>>*/ caml_call4
           (Stdlib[84], ic, buf, ofs, to_read);
-       /*<<buffer.ml:188:6>>*/ if(0 !== r){
+       /*<<buffer.ml:188:6>>*/ if(!  /*<<buffer.ml:188:6>>*/ Object.is(0, r)){
        var
         already_read$0 = already_read + r | 0,
         ofs$0 = ofs + r | 0,
@@ -12975,13 +13029,13 @@
      i$4 = 0;
      /*<<buffer.ml:262:4>>*/ for(;;){
      if(i$4 >= lim$1){
-      var _o_ = 92 === previous ? 1 : 0;
+      var _o_ = Object.is(92, previous) ? 1 : 0;
       return _o_ ? add_char(b, previous) : _o_;
      }
       /*<<buffer.ml:263:12>>*/  /*<<buffer.ml:263:12>>*/ var
       previous$0 =  /*<<buffer.ml:263:12>>*/ caml_string_get(s, i$4);
-     if(36 === previous$0)
-      if(92 === previous){
+     if(Object.is(36, previous$0))
+      if(Object.is(92, previous)){
         /*<<buffer.ml:265:9>>*/ add_char(b, previous$0);
         /*<<buffer.ml:265:9>>*/ var
          /*<<buffer.ml:265:9>>*/ i$5 = i$4 + 1 | 0,
@@ -12998,7 +13052,7 @@
         opening =  /*<<buffer.ml:246:8>>*/ caml_string_get(s, start$0);
        a:
        {
-        if(40 !== opening && 123 !== opening){
+        if(! Object.is(40, opening) && ! Object.is(123, opening)){
           /*<<buffer.ml:254:5>>*/ var
            /*<<buffer.ml:254:5>>*/ start = start$0 + 1 | 0,
           lim$0 = caml_ml_string_length(s);
@@ -13017,7 +13071,7 @@
               if(97 <= match){
                if(123 <= match) break d;
               }
-              else if(95 !== match) break d;
+              else if(! Object.is(95, match)) break d;
              }
              else
               if(58 <= match){
@@ -13043,10 +13097,10 @@
          /*<<buffer.ml:249:5>>*/ var
           /*<<buffer.ml:249:5>>*/ new_start = start$0 + 1 | 0,
          k$2 = 0;
-        if(40 === opening)
+        if(Object.is(40, opening))
          var closing = 41;
         else{
-         if(123 !== opening)
+         if(! Object.is(123, opening))
            /*<<buffer.ml:220:9>>*/ throw  /*<<buffer.ml:220:9>>*/ caml_maybe_attach_backtrace
                  ([0, Assert_failure, _a_], 1);
          var closing = 125;
@@ -13063,7 +13117,7 @@
          else if
           ( /*<<buffer.ml:230:7>>*/ Object.is
             ( /*<<buffer.ml:230:7>>*/ caml_string_get(s, stop), closing)){
-          if(0 === k) break;
+          if(Object.is(0, k)) break;
           var i$0 = stop + 1 | 0, k$1 = k - 1 | 0, k = k$1, stop = i$0;
          }
          else
@@ -13081,7 +13135,7 @@
         (b,  /*<<buffer.ml:270:22>>*/ caml_call1(f, ident));
        var previous = 32, i$4 = next_i;
       }
-     else if(92 === previous){
+     else if( /*<<buffer.ml:272:21>>*/ Object.is(92, previous)){
        /*<<buffer.ml:273:9>>*/ add_char(b, 92);
        /*<<buffer.ml:274:9>>*/ add_char(b, previous$0);
        /*<<buffer.ml:274:9>>*/ var
@@ -13089,7 +13143,7 @@
        previous = 32,
        i$4 = i$6;
      }
-     else if(92 === previous$0)
+     else if(Object.is(92, previous$0))
        /*<<buffer.ml:277:9>>*/ var
         /*<<buffer.ml:277:9>>*/ i$7 = i$4 + 1 | 0,
        previous = previous$0,
@@ -13412,7 +13466,7 @@
      /*<<semaphore.ml:44:2>>*/  /*<<semaphore.ml:44:2>>*/ caml_call1
      (Stdlib_Mutex[2], s[1]);
      /*<<semaphore.ml:45:19>>*/ for(;;){
-     if(0 !== s[2]){
+     if(! Object.is(0, s[2])){
       s[2] = s[2] - 1 | 0;
       return caml_call1(Stdlib_Mutex[4], s[1]);
      }
@@ -13423,7 +13477,7 @@
    function try_acquire(s){
      /*<<semaphore.ml:50:2>>*/  /*<<semaphore.ml:50:2>>*/ caml_call1
      (Stdlib_Mutex[2], s[1]);
-    var ret = 0 === s[2] ? 0 : (s[2] = s[2] - 1 | 0, 1);
+    var ret = Object.is(0, s[2]) ? 0 : (s[2] = s[2] - 1 | 0, 1);
      /*<<semaphore.ml:52:2>>*/  /*<<semaphore.ml:52:2>>*/ caml_call1
      (Stdlib_Mutex[4], s[1]);
      /*<<semaphore.ml:52:2>>*/ return ret;
@@ -13455,7 +13509,10 @@
      /*<<semaphore.ml:75:2>>*/  /*<<semaphore.ml:75:2>>*/ caml_call1
      (Stdlib_Mutex[2], s[1]);
      /*<<semaphore.ml:76:19>>*/ for(;;){
-     if(0 !== s[2]){s[2] = 0; return caml_call1(Stdlib_Mutex[4], s[1]);}
+     if(! Object.is(0, s[2])){
+      s[2] = 0;
+      return caml_call1(Stdlib_Mutex[4], s[1]);
+     }
       /*<<semaphore.ml:76:19>>*/  /*<<semaphore.ml:76:19>>*/ caml_call2
       (Stdlib_Condition[2], s[3], s[1]);
     }
@@ -13463,7 +13520,7 @@
    function try_acquire$0(s){
      /*<<semaphore.ml:81:2>>*/  /*<<semaphore.ml:81:2>>*/ caml_call1
      (Stdlib_Mutex[2], s[1]);
-    var ret = 0 === s[2] ? 0 : (s[2] = 0, 1);
+    var ret = Object.is(0, s[2]) ? 0 : (s[2] = 0, 1);
      /*<<semaphore.ml:83:2>>*/  /*<<semaphore.ml:83:2>>*/ caml_call1
      (Stdlib_Mutex[4], s[1]);
      /*<<semaphore.ml:83:2>>*/ return ret;
@@ -13609,8 +13666,8 @@
             (0);
     /*<<domain.ml:138:25>>*/ }
    function is_main_domain(param){
-     /*<<domain.ml:140:24>>*/ return 0
-            ===  /*<<domain.ml:140:25>>*/ caml_ml_domain_id(0)
+     /*<<domain.ml:140:24>>*/ return Object.is
+             (0,  /*<<domain.ml:140:25>>*/ caml_ml_domain_id(0))
             ? 1
             : 0;
     /*<<domain.ml:140:44>>*/ }
@@ -14211,7 +14268,7 @@
         /*<<camlinternalFormat.ml:41:6>>*/ caml_call1(Stdlib[29], _dQ_));
       /*<<camlinternalFormat.ml:40:4>>*/  /*<<camlinternalFormat.ml:40:4>>*/ var
       _dR_ = i + 1 | 0;
-     if(31 === i)
+     if(Object.is(31, i))
        /*<<camlinternalFormat.ml:43:2>>*/ return  /*<<camlinternalFormat.ml:43:2>>*/ caml_call1
               (Stdlib_Bytes[44], char_set$0);
      var i = _dR_;
@@ -14221,13 +14278,13 @@
      /*<<camlinternalFormat.ml:47:2>>*/ var
      str_ind = c >>> 3 | 0,
      mask = 1 << (c & 7);
-    return 0
-            !==
-             ( /*<<camlinternalFormat.ml:49:15>>*/ caml_string_get
-              (char_set, str_ind)
-             & mask)
-            ? 1
-            : 0;
+    return Object.is
+             (0,
+               /*<<camlinternalFormat.ml:49:15>>*/ caml_string_get
+               (char_set, str_ind)
+              & mask)
+            ? 0
+            : 1;
     /*<<camlinternalFormat.ml:49:60>>*/ }
    function pad_of_pad_opt(pad_opt){
      /*<<camlinternalFormat.ml:62:29>>*/ if(! pad_opt)
@@ -14301,7 +14358,9 @@
     }
     /*<<camlinternalFormat.ml:114:41>>*/ }
    function default_float_precision(fconv){
-     /*<<camlinternalFormat.ml:221:2>>*/ return 5 === fconv[2] ? 12 : -6;
+     /*<<camlinternalFormat.ml:221:2>>*/ return Object.is(5, fconv[2])
+            ? 12
+            : -6;
     /*<<camlinternalFormat.ml:227:17>>*/ }
    function buffer_create(init_size){
      /*<<camlinternalFormat.ml:256:30>>*/ return [0,
@@ -14527,7 +14586,7 @@
     }
     /*<<camlinternalFormat.ml:475:43>>*/ }
    function bprint_char_literal(buf, chr){
-     /*<<camlinternalFormat.ml:480:34>>*/ if(37 === chr){
+     /*<<camlinternalFormat.ml:480:34>>*/ if(Object.is(37, chr)){
       /*<<camlinternalFormat.ml:481:11>>*/ buffer_add_string(buf, cst$8);
       /*<<camlinternalFormat.ml:481:11>>*/ return;
     }
@@ -14855,12 +14914,12 @@
               c =
                  /*<<camlinternalFormat.ml:358:31>>*/ caml_call1
                  (Stdlib[29], i);
-             if(37 === c){
+             if(Object.is(37, c)){
                /*<<camlinternalFormat.ml:359:13>>*/ buffer_add_char(buf, 37);
                /*<<camlinternalFormat.ml:359:13>>*/ buffer_add_char(buf, 37);
                /*<<camlinternalFormat.ml:359:13>>*/ return;
              }
-             if(64 === c){
+             if(Object.is(64, c)){
                /*<<camlinternalFormat.ml:360:13>>*/ buffer_add_char(buf, 37);
                /*<<camlinternalFormat.ml:360:13>>*/ buffer_add_char(buf, 64);
                /*<<camlinternalFormat.ml:360:13>>*/ return;
@@ -14973,7 +15032,7 @@
                  i$3 = i$1 - 1 | 0,
                  j$0 = j;
                  /*<<camlinternalFormat.ml:351:4>>*/ for(;;){
-                 if(256 === j$0) break;
+                 if(Object.is(256, j$0)) break;
                   /*<<camlinternalFormat.ml:351:22>>*/ if
                   (!
                    is_in_char_set
@@ -16945,7 +17004,7 @@
         /*<<camlinternalFormat.ml:1321:4>>*/ caml_call1(Stdlib[18], width);
     if(width$0 <= len)  /*<<camlinternalFormat.ml:1332:23>>*/ return str;
      /*<<camlinternalFormat.ml:1333:14>>*/ var
-     _c6_ = 2 === padty$0 ? 48 : 32,
+     _c6_ = Object.is(2, padty$0) ? 48 : 32,
       /*<<camlinternalFormat.ml:1333:14>>*/ res =
         /*<<camlinternalFormat.ml:1333:14>>*/ caml_call2
         (Stdlib_Bytes[1], width$0, _c6_);
@@ -16962,14 +17021,20 @@
        a:
        if(0 < len){
          /*<<camlinternalFormat.ml:1337:63>>*/ if
-         (43
-          !==  /*<<camlinternalFormat.ml:1337:29>>*/ caml_string_get(str, 0)
+         (!
+           /*<<camlinternalFormat.ml:1337:29>>*/ Object.is
+           (43,
+             /*<<camlinternalFormat.ml:1337:29>>*/ caml_string_get(str, 0))
           &&
-           45
-           !==  /*<<camlinternalFormat.ml:1337:46>>*/ caml_string_get(str, 0)
+           !
+            /*<<camlinternalFormat.ml:1337:46>>*/ Object.is
+            (45,
+              /*<<camlinternalFormat.ml:1337:46>>*/ caml_string_get(str, 0))
            &&
-            32
-            !==  /*<<camlinternalFormat.ml:1337:63>>*/ caml_string_get(str, 0))
+            !
+             /*<<camlinternalFormat.ml:1337:63>>*/ Object.is
+             (32,
+               /*<<camlinternalFormat.ml:1337:63>>*/ caml_string_get(str, 0)))
          break a;
          /*<<camlinternalFormat.ml:1338:6>>*/  /*<<camlinternalFormat.ml:1338:6>>*/ caml_bytes_set
          (res,
@@ -16988,14 +17053,19 @@
        if
         (1 < len
          &&
-          48
-          ===  /*<<camlinternalFormat.ml:1340:28>>*/ caml_string_get(str, 0)){
+           /*<<camlinternalFormat.ml:1340:28>>*/ Object.is
+           (48,
+             /*<<camlinternalFormat.ml:1340:28>>*/ caml_string_get(str, 0))){
          /*<<camlinternalFormat.ml:1340:63>>*/ if
-         (120
-          !==  /*<<camlinternalFormat.ml:1340:46>>*/ caml_string_get(str, 1)
+         (!
+           /*<<camlinternalFormat.ml:1340:46>>*/ Object.is
+           (120,
+             /*<<camlinternalFormat.ml:1340:46>>*/ caml_string_get(str, 1))
           &&
-           88
-           !==  /*<<camlinternalFormat.ml:1340:63>>*/ caml_string_get(str, 1))
+           !
+            /*<<camlinternalFormat.ml:1340:63>>*/ Object.is
+            (88,
+              /*<<camlinternalFormat.ml:1340:63>>*/ caml_string_get(str, 1)))
          break a;
          /*<<camlinternalFormat.ml:1341:6>>*/  /*<<camlinternalFormat.ml:1341:6>>*/ caml_bytes_set
          (res,
@@ -17029,20 +17099,23 @@
      b:
      {
       if(58 > c){
-       if(32 !== c){
+       if(! Object.is(32, c)){
         if(43 > c) break a;
         switch(c - 43 | 0){
           case 5:
            c:
            if(len < (prec$0 + 2 | 0) && 1 < len){
              /*<<camlinternalFormat.ml:1358:60>>*/ if
-             (120
-              !==
-                /*<<camlinternalFormat.ml:1358:43>>*/ caml_string_get(str, 1)
+             (!
+               /*<<camlinternalFormat.ml:1358:43>>*/ Object.is
+               (120,
+                 /*<<camlinternalFormat.ml:1358:43>>*/ caml_string_get(str, 1))
               &&
-               88
-               !==
-                 /*<<camlinternalFormat.ml:1358:60>>*/ caml_string_get(str, 1))
+               !
+                /*<<camlinternalFormat.ml:1358:60>>*/ Object.is
+                (88,
+                  /*<<camlinternalFormat.ml:1358:60>>*/ caml_string_get
+                  (str, 1)))
              break c;
              /*<<camlinternalFormat.ml:1359:14>>*/  /*<<camlinternalFormat.ml:1359:14>>*/ var
              res$1 =
@@ -17176,7 +17249,7 @@
       if(9 < c - 48 >>> 0)
         /*<<camlinternalFormat.ml:1444:13>>*/ put(c);
       else{
-       if(0 === left[1]){
+       if(Object.is(0, left[1])){
          /*<<camlinternalFormat.ml:1443:29>>*/ put(95);
         left[1] = 3;
        }
@@ -17345,7 +17418,7 @@
       /*<<camlinternalFormat.ml:1477:29>>*/  /*<<camlinternalFormat.ml:1477:35>>*/ var
       match =
          /*<<camlinternalFormat.ml:1477:35>>*/ runtime.caml_classify_float(x);
-     return 3 === match
+     return Object.is(3, match)
              ? x < 0. ? cst_neg_infinity : cst_infinity
              : 4 <= match ? cst_nan : str;
      /*<<camlinternalFormat.ml:1480:21>>*/ }
@@ -17369,7 +17442,7 @@
          a:
          {
           if(23 < _cS_ >>> 0){
-           if(55 === _cS_) break a;
+           if(Object.is(55, _cS_)) break a;
           }
           else if(21 < _cS_ - 1 >>> 0) break a;
            /*<<camlinternalFormat.ml:1475:15>>*/ var
@@ -18691,7 +18764,7 @@
        /*<<camlinternalFormat.ml:1974:14>>*/  /*<<camlinternalFormat.ml:1974:14>>*/ var
        match =
           /*<<camlinternalFormat.ml:1974:14>>*/ caml_string_get(str, i$0);
-      if(9 !== match && 32 !== match)
+      if(! Object.is(9, match) && ! Object.is(32, match))
         /*<<camlinternalFormat.ml:1976:15>>*/ return i$0;
        /*<<camlinternalFormat.ml:1975:24>>*/ var
         /*<<camlinternalFormat.ml:1975:24>>*/ i$1 = i$0 + 1 | 0,
@@ -18733,7 +18806,10 @@
        /*<<camlinternalFormat.ml:1984:14>>*/  /*<<camlinternalFormat.ml:1984:14>>*/ var
        match =
           /*<<camlinternalFormat.ml:1984:14>>*/ caml_string_get(str, nend);
-      if(48 <= match){if(58 <= match) break;} else if(45 !== match) break;
+      if(48 <= match){
+       if(58 <= match) break;
+      }
+      else if(! Object.is(45, match)) break;
        /*<<camlinternalFormat.ml:1985:30>>*/ var
         /*<<camlinternalFormat.ml:1985:30>>*/ j$0 = nend + 1 | 0,
        nend = j$0;
@@ -18831,10 +18907,10 @@
     function add_literal(lit_start, str_ind, fmt){
       /*<<camlinternalFormat.ml:2843:31>>*/ var
       size = str_ind - lit_start | 0;
-     return 0 === size
+     return Object.is(0, size)
              ? [0, fmt]
-             : 1
-               === size
+             : Object.is
+                (1, size)
                ? [0,
                  [12,
                    /*<<camlinternalFormat.ml:2845:37>>*/ caml_string_get
@@ -18857,8 +18933,8 @@
         /*<<camlinternalFormat.ml:2125:12>>*/  /*<<camlinternalFormat.ml:2125:12>>*/ var
         match =
            /*<<camlinternalFormat.ml:2125:12>>*/ caml_string_get(str, str_ind);
-       if(37 === match) break;
-       if(64 === match) break a;
+       if(Object.is(37, match)) break;
+       if(Object.is(64, match)) break a;
        var str_ind$1 = str_ind + 1 | 0, str_ind = str_ind$1;
       }
       var str_ind$2 = str_ind + 1 | 0;
@@ -18867,10 +18943,10 @@
         (end_ind);
       var
        match$1 =
-         95
-          ===
-            /*<<camlinternalFormat.ml:2142:10>>*/ caml_string_get
-            (str, str_ind$2)
+         Object.is
+           (95,
+             /*<<camlinternalFormat.ml:2142:10>>*/ caml_string_get
+             (str, str_ind$2))
           ? parse_flags(str_ind, str_ind$2 + 1 | 0, end_ind, 1)
           : parse_flags(str_ind, str_ind$2, end_ind, 0),
        fmt_rest = match$1[1];
@@ -18915,7 +18991,7 @@
         }
       }
       else{
-       if(10 === c){
+       if(Object.is(10, c)){
         var
          fmt_rest$4 = parse(str_ind$0 + 1 | 0, end_ind)[1],
          match$0 = [0, [17, 3, fmt_rest$4]];
@@ -18932,10 +19008,10 @@
             /*<<camlinternalFormat.ml:2626:42>>*/ if
             ((str_ind$0 + 1 | 0) < end_ind
              &&
-              37
-              ===
-                /*<<camlinternalFormat.ml:2626:42>>*/ caml_string_get
-                (str, str_ind$0 + 1 | 0)){
+               /*<<camlinternalFormat.ml:2626:42>>*/ Object.is
+               (37,
+                 /*<<camlinternalFormat.ml:2626:42>>*/ caml_string_get
+                 (str, str_ind$0 + 1 | 0))){
             var
              fmt_rest$6 = parse(str_ind$0 + 2 | 0, end_ind)[1],
              match$0 = [0, [17, 6, fmt_rest$6]];
@@ -18964,12 +19040,12 @@
              _bh_ =
                _bg_
                ||
-                (60
-                  !==
-                    /*<<camlinternalFormat.ml:2666:32>>*/ caml_string_get
-                    (str, str_ind$3)
-                  ? 1
-                  : 0);
+                (Object.is
+                   (60,
+                     /*<<camlinternalFormat.ml:2666:32>>*/ caml_string_get
+                     (str, str_ind$3))
+                  ? 0
+                  : 1);
             if(_bh_)
               /*<<camlinternalFormat.ml:2666:58>>*/ throw  /*<<camlinternalFormat.ml:2666:58>>*/ caml_maybe_attach_backtrace
                     (Stdlib[8], 1);
@@ -18984,7 +19060,7 @@
              if(48 <= match$2){
               if(58 > match$2) break c;
              }
-             else if(45 === match$2) break c;
+             else if(Object.is(45, match$2)) break c;
               /*<<camlinternalFormat.ml:2684:15>>*/ throw  /*<<camlinternalFormat.ml:2684:15>>*/ caml_maybe_attach_backtrace
                     (Stdlib[8], 1);
             }
@@ -19001,7 +19077,7 @@
                - 45
                | 0;
             if(12 < switcher$0 >>> 0){
-             if(17 === switcher$0){
+             if(Object.is(17, switcher$0)){
                /*<<camlinternalFormat.ml:2674:24>>*/ var
                 /*<<camlinternalFormat.ml:2674:24>>*/ s =
                   /*<<camlinternalFormat.ml:2674:24>>*/ caml_call3
@@ -19025,10 +19101,11 @@
                /*<<camlinternalFormat.ml:2678:32>>*/ str_ind_5 =
                 parse_spaces(str_ind_4, end_ind);
              if
-              (62
-               !==
-                 /*<<camlinternalFormat.ml:2679:19>>*/ caml_string_get
-                 (str, str_ind_5))
+              (!
+               Object.is
+                (62,
+                  /*<<camlinternalFormat.ml:2679:19>>*/ caml_string_get
+                  (str, str_ind_5)))
                /*<<camlinternalFormat.ml:2679:47>>*/ throw  /*<<camlinternalFormat.ml:2679:47>>*/ caml_maybe_attach_backtrace
                      (Stdlib[8], 1);
               /*<<camlinternalFormat.ml:2680:24>>*/ var
@@ -19075,7 +19152,7 @@
               if(48 <= match$6){
                if(58 > match$6) break c;
               }
-              else if(45 === match$6) break c;
+              else if(Object.is(45, match$6)) break c;
               var _bo_ = 0;
               break b;
              }
@@ -19087,10 +19164,11 @@
                /*<<camlinternalFormat.ml:2700:26>>*/ str_ind_3$0 =
                 parse_spaces(str_ind_2$0, end_ind);
              if
-              (62
-               !==
-                 /*<<camlinternalFormat.ml:2701:13>>*/ caml_string_get
-                 (str, str_ind_3$0))
+              (!
+               Object.is
+                (62,
+                  /*<<camlinternalFormat.ml:2701:13>>*/ caml_string_get
+                  (str, str_ind_3$0)))
                /*<<camlinternalFormat.ml:2701:41>>*/ throw  /*<<camlinternalFormat.ml:2701:41>>*/ caml_maybe_attach_backtrace
                      (Stdlib[8], 1);
               /*<<camlinternalFormat.ml:2702:18>>*/ var
@@ -19366,8 +19444,8 @@
                 c =
                    /*<<camlinternalFormat.ml:2744:12>>*/ caml_string_get
                    (str, str_ind$0);
-               if(45 !== c){
-                if(93 === c)
+               if(! Object.is(45, c)){
+                if(Object.is(93, c))
                   /*<<camlinternalFormat.ml:2746:8>>*/ return str_ind$0 + 1
                         | 0;
                 var _bc_ = str_ind$0 + 1 | 0;
@@ -19398,14 +19476,14 @@
                a:
                {
                 if(46 <= c$1){
-                 if(64 !== c$1){
-                  if(93 !== c$1) break a;
+                 if(! Object.is(64, c$1)){
+                  if(! Object.is(93, c$1)) break a;
                    /*<<camlinternalFormat.ml:2758:8>>*/ add_char(c$0);
                    /*<<camlinternalFormat.ml:2758:8>>*/ return str_ind$0 + 1
                          | 0;
                  }
                 }
-                else if(37 !== c$1){
+                else if(! Object.is(37, c$1)){
                  if(45 > c$1) break a;
                  var str_ind$2 = str_ind$0 + 1 | 0;
                  if(Object.is(str_ind$2, end_ind))
@@ -19415,7 +19493,7 @@
                   c$2 =
                      /*<<camlinternalFormat.ml:2776:12>>*/ caml_string_get
                      (str, str_ind$2);
-                 if(37 === c$2){
+                 if(Object.is(37, c$2)){
                   if((str_ind$2 + 1 | 0) === end_ind)
                     /*<<camlinternalFormat.ml:2782:38>>*/ unexpected_end_of_format
                     (end_ind);
@@ -19423,7 +19501,7 @@
                    c$3 =
                       /*<<camlinternalFormat.ml:2783:20>>*/ caml_string_get
                       (str, str_ind$2 + 1 | 0);
-                  if(37 !== c$3 && 64 !== c$3)
+                  if(! Object.is(37, c$3) && ! Object.is(64, c$3))
                     /*<<camlinternalFormat.ml:2787:17>>*/ return fail_single_percent
                            (str_ind$2);
                    /*<<camlinternalFormat.ml:2785:12>>*/ add_range(c$0, c$3);
@@ -19435,7 +19513,7 @@
                    /*<<camlinternalFormat.ml:2785:12>>*/ return parse_char_set_content
                           (counter$2, _ba_, end_ind);
                  }
-                 if(93 === c$2){
+                 if(Object.is(93, c$2)){
                    /*<<camlinternalFormat.ml:2778:8>>*/ add_char(c$0);
                    /*<<camlinternalFormat.ml:2779:8>>*/ add_char(45);
                    /*<<camlinternalFormat.ml:2779:8>>*/ return str_ind$2 + 1
@@ -19450,7 +19528,7 @@
                   /*<<camlinternalFormat.ml:2790:8>>*/ return parse_char_set_content
                          (counter$1, _bb_, end_ind);
                 }
-                if(37 === c$0){
+                if(Object.is(37, c$0)){
                   /*<<camlinternalFormat.ml:2763:8>>*/ add_char(c$1);
                  var _a$_ = str_ind$0 + 1 | 0;
                   /*<<camlinternalFormat.ml:2763:8>>*/ if(counter >= 50)
@@ -19461,7 +19539,7 @@
                          (counter$0, _a$_, end_ind);
                 }
                }
-               if(37 === c$0)
+               if(Object.is(37, c$0))
                  /*<<camlinternalFormat.ml:2766:24>>*/ fail_single_percent
                  (str_ind$0);
                 /*<<camlinternalFormat.ml:2770:8>>*/ add_char(c$0);
@@ -19480,10 +19558,10 @@
             /*<<camlinternalFormat.ml:2794:32>>*/ unexpected_end_of_format
             (end_ind);
           if
-           (94
-            ===
-              /*<<camlinternalFormat.ml:2795:12>>*/ caml_string_get
-              (str, str_ind))
+           (Object.is
+             (94,
+               /*<<camlinternalFormat.ml:2795:12>>*/ caml_string_get
+               (str, str_ind)))
            var
             str_ind$0 = str_ind + 1 | 0,
             reverse = 1,
@@ -19529,7 +19607,7 @@
            fmt_rest$21 = parse(str_ind, end_ind)[1],
             /*<<camlinternalFormat.ml:2387:18>>*/ match$7 = get_pad_opt(99);
           if(match$7){
-           if(0 === match$7[1])
+           if(Object.is(0, match$7[1]))
              /*<<camlinternalFormat.ml:2382:11>>*/ var
               /*<<camlinternalFormat.ml:2382:11>>*/ _a2_ =
                get_ign(0) ? [0, [23, 3, fmt_rest$21]] : [0, [22, fmt_rest$21]],
@@ -19658,7 +19736,7 @@
                default: var counter = 1; break b;
              }
            }
-           else if(76 === symb){var counter = 2; break b;}
+           else if(Object.is(76, symb)){var counter = 2; break b;}
             /*<<camlinternalFormat.ml:2899:34>>*/ throw  /*<<camlinternalFormat.ml:2899:34>>*/ caml_maybe_attach_backtrace
                   ([0, Assert_failure, _V_], 1);
           }
@@ -19761,9 +19839,9 @@
             break b;
            }
            if(hash$1){
-            if(70 === symb){var kind = 8; break b;}
+            if(Object.is(70, symb)){var kind = 8; break b;}
            }
-           else if(70 === symb){var kind = 5; break b;}
+           else if(Object.is(70, symb)){var kind = 5; break b;}
             /*<<camlinternalFormat.ml:2957:11>>*/ throw  /*<<camlinternalFormat.ml:2957:11>>*/ caml_maybe_attach_backtrace
                   ([0, Assert_failure, _X_], 1);
           }
@@ -19860,7 +19938,7 @@
         break a;
        }
       }
-      else if(76 === symb){
+      else if(Object.is(76, symb)){
         /*<<camlinternalFormat.ml:2473:25>>*/ var
          /*<<camlinternalFormat.ml:2473:25>>*/ _aI_ =
            /*<<camlinternalFormat.ml:2473:25>>*/ caml_string_get(str, str_ind),
@@ -19938,9 +20016,9 @@
       b:
       {
        if(38 <= symb){
-        if(44 !== symb && 64 !== symb) break b;
+        if(! Object.is(44, symb) && ! Object.is(64, symb)) break b;
        }
-       else if(33 !== symb && 37 > symb) break b;
+       else if(! Object.is(33, symb) && 37 > symb) break b;
        if(legacy_behavior$0) break a;
       }
        /*<<camlinternalFormat.ml:2584:10>>*/ incompatible_flag
@@ -19989,7 +20067,7 @@
       /*<<camlinternalFormat.ml:2220:10>>*/  /*<<camlinternalFormat.ml:2220:10>>*/ var
       symb =
          /*<<camlinternalFormat.ml:2220:10>>*/ caml_string_get(str, str_ind);
-     if(46 !== symb)
+     if(! Object.is(46, symb))
        /*<<camlinternalFormat.ml:2225:6>>*/ return parse_conversion
               (pct_ind,
                str_ind + 1 | 0,
@@ -20050,7 +20128,7 @@
          if(legacy_behavior$0){
            /*<<camlinternalFormat.ml:2249:6>>*/ var
             /*<<camlinternalFormat.ml:2249:6>>*/ _an_ = str_ind$0 + 1 | 0,
-           minus$0 = minus || (45 === symb$0 ? 1 : 0);
+           minus$0 = minus || (Object.is(45, symb$0) ? 1 : 0);
            /*<<camlinternalFormat.ml:2249:6>>*/ return parse_literal
                   (minus$0, _an_);
          }
@@ -20186,7 +20264,7 @@
                 [0, padty, width]);
       }
      }
-     else if(42 === match)
+     else if(Object.is(42, match))
        /*<<camlinternalFormat.ml:2195:12>>*/ return parse_after_padding
               (pct_ind,
                str_ind$0 + 1 | 0,
@@ -20242,9 +20320,10 @@
         /*<<camlinternalFormat.ml:2640:32>>*/ throw  /*<<camlinternalFormat.ml:2640:32>>*/ caml_maybe_attach_backtrace
               (Stdlib[8], 1);
       if
-       (60
-        !==
-          /*<<camlinternalFormat.ml:2641:12>>*/ caml_string_get(str, str_ind))
+       (!
+        Object.is
+         (60,
+           /*<<camlinternalFormat.ml:2641:12>>*/ caml_string_get(str, str_ind)))
         /*<<camlinternalFormat.ml:2653:8>>*/ throw  /*<<camlinternalFormat.ml:2653:8>>*/ caml_maybe_attach_backtrace
               (Stdlib[8], 1);
        /*<<camlinternalFormat.ml:2643:18>>*/  /*<<camlinternalFormat.ml:2643:18>>*/ var
@@ -20287,9 +20366,11 @@
         /*<<camlinternalFormat.ml:2804:30>>*/ unexpected_end_of_format
         (end_ind);
        /*<<camlinternalFormat.ml:2805:7>>*/ if
-       (32
-        !==
-          /*<<camlinternalFormat.ml:2805:7>>*/ caml_string_get(str, str_ind$0))
+       (!
+         /*<<camlinternalFormat.ml:2805:7>>*/ Object.is
+         (32,
+           /*<<camlinternalFormat.ml:2805:7>>*/ caml_string_get
+           (str, str_ind$0)))
         /*<<camlinternalFormat.ml:2805:72>>*/ return str_ind$0;
       var str_ind$1 = str_ind$0 + 1 | 0, str_ind$0 = str_ind$1;
      }
@@ -20332,7 +20413,7 @@
         /*<<camlinternalFormat.ml:2827:20>>*/ return parse_positive
                (str_ind, end_ind, 0);
      }
-     else if(45 === match){
+     else if(Object.is(45, match)){
       if((str_ind + 1 | 0) === end_ind)
         /*<<camlinternalFormat.ml:2829:36>>*/ unexpected_end_of_format
         (end_ind);
@@ -20360,10 +20441,10 @@
         /*<<camlinternalFormat.ml:2852:6>>*/  /*<<camlinternalFormat.ml:2852:6>>*/ caml_call3
         (failwith_message(_U_), str, c, end_ind);
       if
-       (37
-        ===
-          /*<<camlinternalFormat.ml:2855:10>>*/ caml_string_get
-          (str, str_ind$0)){
+       (Object.is
+         (37,
+           /*<<camlinternalFormat.ml:2855:10>>*/ caml_string_get
+           (str, str_ind$0))){
        if((str_ind$0 + 1 | 0) === end_ind)
          /*<<camlinternalFormat.ml:2857:36>>*/ unexpected_end_of_format
          (end_ind);
@@ -20403,7 +20484,7 @@
           match$0 =
              /*<<camlinternalFormat.ml:2863:22>>*/ caml_string_get
              (str, str_ind$0 + 2 | 0);
-         if(40 === match$0){
+         if(Object.is(40, match$0)){
            /*<<camlinternalFormat.ml:2868:26>>*/ var
             /*<<camlinternalFormat.ml:2868:26>>*/ sub_end$0 =
              search_subformat_end(str_ind$0 + 3 | 0, end_ind, 41),
@@ -20412,7 +20493,7 @@
            str_ind$0 = str_ind$3;
           continue;
          }
-         if(123 === match$0){
+         if(Object.is(123, match$0)){
            /*<<camlinternalFormat.ml:2865:26>>*/ var
             /*<<camlinternalFormat.ml:2865:26>>*/ sub_end$1 =
              search_subformat_end(str_ind$0 + 3 | 0, end_ind, 125),
@@ -20426,7 +20507,7 @@
         }
        }
        else{
-        if(40 === match){
+        if(Object.is(40, match)){
           /*<<camlinternalFormat.ml:2878:24>>*/ var
            /*<<camlinternalFormat.ml:2878:24>>*/ sub_end$2 =
             search_subformat_end(str_ind$0 + 2 | 0, end_ind, 41),
@@ -20434,7 +20515,7 @@
           str_ind$0 = str_ind$6;
          continue;
         }
-        if(41 === match)
+        if(Object.is(41, match))
           /*<<camlinternalFormat.ml:2885:10>>*/ return expected_character
                  (str_ind$0 + 1 | 0, cst_character$0, 41);
        }
@@ -20463,16 +20544,20 @@
        if(plus$0){
         if(! hash$0){
          if(space$0) break a;
-         if(100 === symb)  /*<<camlinternalFormat.ml:2906:34>>*/ return 1;
-         if(105 === symb)  /*<<camlinternalFormat.ml:2906:71>>*/ return 4;
+         if(Object.is(100, symb))
+           /*<<camlinternalFormat.ml:2906:34>>*/ return 1;
+         if(Object.is(105, symb))
+           /*<<camlinternalFormat.ml:2906:71>>*/ return 4;
          break a;
         }
        }
        else{
         if(! hash$0){
          if(space$0){
-          if(100 === symb)  /*<<camlinternalFormat.ml:2905:34>>*/ return 2;
-          if(105 === symb)  /*<<camlinternalFormat.ml:2905:71>>*/ return 5;
+          if(Object.is(100, symb))
+            /*<<camlinternalFormat.ml:2905:34>>*/ return 2;
+          if(Object.is(105, symb))
+            /*<<camlinternalFormat.ml:2905:71>>*/ return 5;
           break a;
          }
          var switcher$1 = symb - 88 | 0;
@@ -21441,7 +21526,9 @@
       /*<<arg.ml:327:4>>*/ for(;;){
       if(len <= n$0)  /*<<arg.ml:326:2>>*/ return len;
        /*<<arg.ml:328:12>>*/ if
-       (32 !==  /*<<arg.ml:328:12>>*/ caml_string_get(s, n$0))
+       (!
+         /*<<arg.ml:328:12>>*/ Object.is
+         (32,  /*<<arg.ml:328:12>>*/ caml_string_get(s, n$0)))
         /*<<arg.ml:329:9>>*/ return n$0;
        /*<<arg.ml:328:29>>*/ var
         /*<<arg.ml:328:29>>*/ n$1 = n$0 + 1 | 0,
@@ -21479,7 +21566,7 @@
    function replace_leading_tab(s){
      /*<<arg.ml:347:2>>*/  /*<<arg.ml:347:13>>*/ var seen = [0, 0];
     function _P_(c){
-      /*<<arg.ml:348:13>>*/ if(9 === c && ! seen[1]){
+      /*<<arg.ml:348:13>>*/ if(Object.is(9, c) && ! seen[1]){
       seen[1] = 1;
        /*<<arg.ml:348:60>>*/ return 32;
      }
@@ -21570,7 +21657,9 @@
       {
         /*<<arg.ml:381:16>>*/ if
         (0 < len
-         && 13 ===  /*<<arg.ml:381:16>>*/ caml_string_get(word, len - 1 | 0)){
+         &&
+           /*<<arg.ml:381:16>>*/ Object.is
+           (13,  /*<<arg.ml:381:16>>*/ caml_string_get(word, len - 1 | 0))){
         var
          _I_ =
             /*<<arg.ml:382:4>>*/ caml_call3
@@ -21862,7 +21951,8 @@
     /*<<printexc.ml:53:28>>*/ }
    function string_of_extension_constructo(t){
      /*<<printexc.ml:64:2>>*/ if
-     (0 ===  /*<<printexc.ml:56:5>>*/ caml_obj_tag(t)){
+     ( /*<<printexc.ml:56:5>>*/ Object.is
+       (0,  /*<<printexc.ml:56:5>>*/ caml_obj_tag(t))){
       /*<<printexc.ml:60:17>>*/ var
        /*<<printexc.ml:60:17>>*/ constructor = t[1][1],
       match = t.length - 1;
@@ -21996,8 +22086,11 @@
    function format_backtrace_slot(pos, slot){
     function info(is_raise){
       /*<<printexc.ml:146:4>>*/ return is_raise
-             ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
-             : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from;
+             ? Object.is(0, pos) ? cst_Raised_at : cst_Re_raised_at
+             : Object.is
+                (0, pos)
+               ? cst_Raised_by_primitive_operat
+               : cst_Called_from;
      /*<<printexc.ml:149:75>>*/ }
      /*<<printexc.ml:151:2>>*/ if(0 === slot[0]){
       /*<<printexc.ml:159:14>>*/ var
@@ -22100,7 +22193,7 @@
     if(! match)  /*<<printexc.ml:236:14>>*/ return 0;
     var backtrace = match[1], i$1 = backtrace.length - 1 - 1 | 0, i = i$1;
      /*<<printexc.ml:241:30>>*/ for(;;){
-     if(-1 === i)
+     if(Object.is(-1, i))
       var _N_ = 0;
      else{
       var _M_ = 0 === caml_check_bound(backtrace, i)[1 + i][0] ? 1 : 0;
@@ -22137,8 +22230,8 @@
     }
     /*<<printexc.ml:280:41>>*/ }
    function exn_slot(x){
-     /*<<printexc.ml:285:2>>*/ return 0
-            ===  /*<<printexc.ml:286:5>>*/ caml_obj_tag(x)
+     /*<<printexc.ml:285:2>>*/ return  /*<<printexc.ml:286:5>>*/ Object.is
+             (0,  /*<<printexc.ml:286:5>>*/ caml_obj_tag(x))
             ? x[1]
             : x;
     /*<<printexc.ml:286:44>>*/ }
@@ -22687,7 +22780,7 @@
     return n + _e_ | 0;
     /*<<digest.ml:50:78>>*/ }
    function to_hex(d){
-     /*<<digest.ml:53:2>>*/ if(16 !== caml_ml_string_length(d))
+     /*<<digest.ml:53:2>>*/ if(! Object.is(16, caml_ml_string_length(d)))
       /*<<digest.ml:53:32>>*/  /*<<digest.ml:53:32>>*/ caml_call1
       (Stdlib[1], cst_Digest_to_hex);
      /*<<digest.ml:54:15>>*/ var
@@ -22700,14 +22793,14 @@
      caml_bytes_unsafe_set(result, i * 2 | 0, char_hex(x >>> 4 | 0));
      caml_bytes_unsafe_set(result, (i * 2 | 0) + 1 | 0, char_hex(x & 15));
       /*<<digest.ml:55:2>>*/  /*<<digest.ml:55:2>>*/ var _d_ = i + 1 | 0;
-     if(15 === i)
+     if(Object.is(15, i))
        /*<<digest.ml:60:2>>*/ return  /*<<digest.ml:60:2>>*/ caml_call1
               (Stdlib_Bytes[44], result);
      var i = _d_;
     }
     /*<<digest.ml:60:31>>*/ }
    function from_hex(s){
-     /*<<digest.ml:63:2>>*/ if(32 !== caml_ml_string_length(s))
+     /*<<digest.ml:63:2>>*/ if(! Object.is(32, caml_ml_string_length(s)))
       /*<<digest.ml:63:32>>*/  /*<<digest.ml:63:32>>*/ caml_call1
       (Stdlib[1], cst_Digest_from_hex);
      /*<<digest.ml:63:32>>*/ function digit(c){
@@ -22736,7 +22829,7 @@
       /*<<digest.ml:74:4>>*/  /*<<digest.ml:74:4>>*/ runtime.caml_bytes_set
       (result, i,  /*<<digest.ml:74:23>>*/ caml_call1(Stdlib_Char[1], _b_));
       /*<<digest.ml:74:4>>*/  /*<<digest.ml:74:4>>*/ var _c_ = i + 1 | 0;
-     if(15 === i)
+     if(Object.is(15, i))
        /*<<digest.ml:76:2>>*/ return  /*<<digest.ml:76:2>>*/ caml_call1
               (Stdlib_Bytes[44], result);
      var i = _c_;
@@ -23133,7 +23226,9 @@
      /*<<bigarray.ml:272:4>>*/ var
      dim1 = data.length - 1,
       /*<<bigarray.ml:273:4>>*/ dim2 =
-       0 === dim1 ? 0 : caml_check_bound(data, 0)[1].length - 1,
+        /*<<bigarray.ml:273:4>>*/ Object.is(0, dim1)
+        ? 0
+        : caml_check_bound(data, 0)[1].length - 1,
       /*<<bigarray.ml:274:13>>*/ ba = create$1(kind, layout, dim1, dim2),
       /*<<bigarray.ml:275:4>>*/ ofs = layout ? 1 : 0,
       /*<<bigarray.ml:280:4>>*/ _C_ = dim1 - 1 | 0,
@@ -23291,9 +23386,11 @@
      /*<<bigarray.ml:347:4>>*/ var
      dim1 = data.length - 1,
       /*<<bigarray.ml:348:4>>*/ dim2 =
-       0 === dim1 ? 0 : caml_check_bound(data, 0)[1].length - 1,
+        /*<<bigarray.ml:348:4>>*/ Object.is(0, dim1)
+        ? 0
+        : caml_check_bound(data, 0)[1].length - 1,
       /*<<bigarray.ml:349:4>>*/ dim3 =
-       0 === dim2
+        /*<<bigarray.ml:349:4>>*/ Object.is(0, dim2)
         ? 0
         : caml_check_bound(caml_check_bound(data, 0)[1], 0)[1].length - 1,
       /*<<bigarray.ml:350:13>>*/ ba = create$2(kind, layout, dim1, dim2, dim3),
@@ -23352,29 +23449,29 @@
      /*<<bigarray.ml:369:4>>*/ return ba;
     /*<<bigarray.ml:369:6>>*/ }
    function array0_of_genarray(a){
-     /*<<bigarray.ml:381:2>>*/ return 0
-            ===  /*<<bigarray.ml:381:5>>*/ caml_ba_num_dims(a)
+     /*<<bigarray.ml:381:2>>*/ return  /*<<bigarray.ml:381:5>>*/ Object.is
+             (0,  /*<<bigarray.ml:381:5>>*/ caml_ba_num_dims(a))
             ? a
             :  /*<<bigarray.ml:382:7>>*/ caml_call1
               (Stdlib[1], cst_Bigarray_array0_of_genarra);
     /*<<bigarray.ml:382:48>>*/ }
    function array1_of_genarray(a){
-     /*<<bigarray.ml:384:2>>*/ return 1
-            ===  /*<<bigarray.ml:384:5>>*/ caml_ba_num_dims(a)
+     /*<<bigarray.ml:384:2>>*/ return  /*<<bigarray.ml:384:5>>*/ Object.is
+             (1,  /*<<bigarray.ml:384:5>>*/ caml_ba_num_dims(a))
             ? a
             :  /*<<bigarray.ml:385:7>>*/ caml_call1
               (Stdlib[1], cst_Bigarray_array1_of_genarra);
     /*<<bigarray.ml:385:48>>*/ }
    function array2_of_genarray(a){
-     /*<<bigarray.ml:387:2>>*/ return 2
-            ===  /*<<bigarray.ml:387:5>>*/ caml_ba_num_dims(a)
+     /*<<bigarray.ml:387:2>>*/ return  /*<<bigarray.ml:387:5>>*/ Object.is
+             (2,  /*<<bigarray.ml:387:5>>*/ caml_ba_num_dims(a))
             ? a
             :  /*<<bigarray.ml:388:7>>*/ caml_call1
               (Stdlib[1], cst_Bigarray_array2_of_genarra);
     /*<<bigarray.ml:388:48>>*/ }
    function array3_of_genarray(a){
-     /*<<bigarray.ml:390:2>>*/ return 3
-            ===  /*<<bigarray.ml:390:5>>*/ caml_ba_num_dims(a)
+     /*<<bigarray.ml:390:2>>*/ return  /*<<bigarray.ml:390:5>>*/ Object.is
+             (3,  /*<<bigarray.ml:390:5>>*/ caml_ba_num_dims(a))
             ? a
             :  /*<<bigarray.ml:391:7>>*/ caml_call1
               (Stdlib[1], cst_Bigarray_array3_of_genarra);
@@ -23574,7 +23671,7 @@
       /*<<random.ml:66:6>>*/  /*<<random.ml:66:6>>*/ caml_call3
       (Stdlib_Bytes[86], buf, 5 + (i * 8 | 0) | 0, _y_);
       /*<<random.ml:66:6>>*/  /*<<random.ml:66:6>>*/ var _z_ = i + 1 | 0;
-     if(3 === i)
+     if(Object.is(3, i))
        /*<<random.ml:68:4>>*/ return  /*<<random.ml:68:4>>*/ caml_call1
               (Stdlib_Bytes[44], buf);
      var i = _z_;
@@ -23582,7 +23679,7 @@
     /*<<random.ml:68:30>>*/ }
    function of_binary_string(buf){
      /*<<random.ml:71:4>>*/ var
-     _v_ = runtime.caml_ml_string_length(buf) !== 37 ? 1 : 0,
+     _v_ = Object.is(runtime.caml_ml_string_length(buf), 37) ? 0 : 1,
      _w_ =
        _v_
        ||
@@ -23749,7 +23846,7 @@
     /*<<random.ml:179:25>>*/ }
    var
     nativebits =
-      32 === Stdlib_Nativeint[9]
+      Object.is(32, Stdlib_Nativeint[9])
        ? function
         (s){
           /*<<random.ml:184:18>>*/ return bits32(s);
@@ -23760,7 +23857,7 @@
                  ( /*<<random.ml:185:37>>*/ caml_lxm_next(s));
          /*<<random.ml:185:47>>*/ },
     nativeint =
-      32 === Stdlib_Nativeint[9]
+      Object.is(32, Stdlib_Nativeint[9])
        ? function
         (s, bound){
           /*<<random.ml:190:24>>*/ return int32(s, bound);
@@ -24745,7 +24842,8 @@
      if(! prec)  /*<<hashtbl.ml:519:6>>*/ return 0;
      var k = prec[1], next = prec[3];
       /*<<hashtbl.ml:521:9>>*/ if
-      (0 ===  /*<<hashtbl.ml:521:9>>*/ caml_compare(k, key)){
+      ( /*<<hashtbl.ml:521:9>>*/ Object.is
+        (0,  /*<<hashtbl.ml:521:9>>*/ caml_compare(k, key))){
       h[1] = h[1] - 1 | 0;
       return prec$0
               ? (prec$0[3] = next, 0)
@@ -24763,21 +24861,24 @@
             (Stdlib[8], 1);
     var k1 = match[1], d1 = match[2], next1 = match[3];
      /*<<hashtbl.ml:544:9>>*/ if
-     (0 ===  /*<<hashtbl.ml:544:9>>*/ caml_compare(key, k1))
+     ( /*<<hashtbl.ml:544:9>>*/ Object.is
+       (0,  /*<<hashtbl.ml:544:9>>*/ caml_compare(key, k1)))
       /*<<hashtbl.ml:544:33>>*/ return d1;
     if(! next1)
       /*<<hashtbl.ml:546:17>>*/ throw  /*<<hashtbl.ml:546:17>>*/ caml_maybe_attach_backtrace
             (Stdlib[8], 1);
     var k2 = next1[1], d2 = next1[2], next2 = next1[3];
      /*<<hashtbl.ml:548:13>>*/ if
-     (0 ===  /*<<hashtbl.ml:548:13>>*/ caml_compare(key, k2))
+     ( /*<<hashtbl.ml:548:13>>*/ Object.is
+       (0,  /*<<hashtbl.ml:548:13>>*/ caml_compare(key, k2)))
       /*<<hashtbl.ml:548:37>>*/ return d2;
     if(! next2)
       /*<<hashtbl.ml:550:21>>*/ throw  /*<<hashtbl.ml:550:21>>*/ caml_maybe_attach_backtrace
             (Stdlib[8], 1);
     var k3 = next2[1], d3 = next2[2], next3 = next2[3];
      /*<<hashtbl.ml:552:17>>*/ if
-     (0 ===  /*<<hashtbl.ml:552:17>>*/ caml_compare(key, k3))
+     ( /*<<hashtbl.ml:552:17>>*/ Object.is
+       (0,  /*<<hashtbl.ml:552:17>>*/ caml_compare(key, k3)))
       /*<<hashtbl.ml:552:41>>*/ return d3;
     var param = next3;
     for(;;){
@@ -24786,7 +24887,8 @@
              (Stdlib[8], 1);
      var k = param[1], data = param[2], next = param[3];
       /*<<hashtbl.ml:538:9>>*/ if
-      (0 ===  /*<<hashtbl.ml:538:9>>*/ caml_compare(key, k))
+      ( /*<<hashtbl.ml:538:9>>*/ Object.is
+        (0,  /*<<hashtbl.ml:538:9>>*/ caml_compare(key, k)))
        /*<<hashtbl.ml:538:32>>*/ return data;
      var param = next;
     }
@@ -24798,24 +24900,28 @@
     if(! match)  /*<<hashtbl.ml:562:13>>*/ return 0;
     var k1 = match[1], d1 = match[2], next1 = match[3];
      /*<<hashtbl.ml:564:9>>*/ if
-     (0 ===  /*<<hashtbl.ml:564:9>>*/ caml_compare(key, k1))
+     ( /*<<hashtbl.ml:564:9>>*/ Object.is
+       (0,  /*<<hashtbl.ml:564:9>>*/ caml_compare(key, k1)))
       /*<<hashtbl.ml:564:33>>*/ return [0, d1];
     if(! next1)  /*<<hashtbl.ml:566:17>>*/ return 0;
     var k2 = next1[1], d2 = next1[2], next2 = next1[3];
      /*<<hashtbl.ml:568:13>>*/ if
-     (0 ===  /*<<hashtbl.ml:568:13>>*/ caml_compare(key, k2))
+     ( /*<<hashtbl.ml:568:13>>*/ Object.is
+       (0,  /*<<hashtbl.ml:568:13>>*/ caml_compare(key, k2)))
       /*<<hashtbl.ml:568:37>>*/ return [0, d2];
     if(! next2)  /*<<hashtbl.ml:570:21>>*/ return 0;
     var k3 = next2[1], d3 = next2[2], next3 = next2[3];
      /*<<hashtbl.ml:572:17>>*/ if
-     (0 ===  /*<<hashtbl.ml:572:17>>*/ caml_compare(key, k3))
+     ( /*<<hashtbl.ml:572:17>>*/ Object.is
+       (0,  /*<<hashtbl.ml:572:17>>*/ caml_compare(key, k3)))
       /*<<hashtbl.ml:572:41>>*/ return [0, d3];
     var param = next3;
     for(;;){
      if(! param)  /*<<hashtbl.ml:556:6>>*/ return 0;
      var k = param[1], data = param[2], next = param[3];
       /*<<hashtbl.ml:558:9>>*/ if
-      (0 ===  /*<<hashtbl.ml:558:9>>*/ caml_compare(key, k))
+      ( /*<<hashtbl.ml:558:9>>*/ Object.is
+        (0,  /*<<hashtbl.ml:558:9>>*/ caml_compare(key, k)))
        /*<<hashtbl.ml:558:32>>*/ return [0, data];
      var param = next;
     }
@@ -24828,7 +24934,8 @@
      if(! param)  /*<<hashtbl.ml:577:6>>*/ return 0;
      var k = param[1], data = param[2], next = param[3];
       /*<<hashtbl.ml:579:9>>*/ if
-      (0 ===  /*<<hashtbl.ml:579:9>>*/ caml_compare(k, key))
+      ( /*<<hashtbl.ml:579:9>>*/ Object.is
+        (0,  /*<<hashtbl.ml:579:9>>*/ caml_compare(k, key)))
       break;
      var param = next;
     }
@@ -24844,7 +24951,8 @@
      }
      var k$0 = param$0[1], data$0 = param$0[2], next$0 = param$0[3];
       /*<<hashtbl.ml:579:9>>*/ if
-      (0 ===  /*<<hashtbl.ml:579:9>>*/ caml_compare(k$0, key)){
+      ( /*<<hashtbl.ml:579:9>>*/ Object.is
+        (0,  /*<<hashtbl.ml:579:9>>*/ caml_compare(k$0, key))){
        /*<<hashtbl.ml:580:11>>*/  /*<<hashtbl.ml:580:11>>*/ var
        dst$0 = [0, data$0, 24029];
       dst[1 + offset] = dst$0;
@@ -24863,7 +24971,9 @@
      if(slot){
       var k = slot[1], next = slot[3];
        /*<<hashtbl.ml:588:9>>*/ if
-       (0 !==  /*<<hashtbl.ml:588:9>>*/ caml_compare(k, key)){var slot = next; continue;}
+       (!
+         /*<<hashtbl.ml:588:9>>*/ Object.is
+         (0,  /*<<hashtbl.ml:588:9>>*/ caml_compare(k, key))){var slot = next; continue;}
       slot[1] = key;
       slot[2] = data;
       var _q_ = 0;
@@ -24891,7 +25001,8 @@
      var
       k = param[1],
       next = param[3],
-      _o_ = 0 ===  /*<<hashtbl.ml:605:6>>*/ caml_compare(k, key) ? 1 : 0;
+      _o_ =
+        Object.is(0,  /*<<hashtbl.ml:605:6>>*/ caml_compare(k, key)) ? 1 : 0;
      if(_o_) return _o_;
      var param = next;
     }
@@ -25089,7 +25200,7 @@
        0 <= o1
        && (length(e1) - l | 0) >= o1 && 0 <= o2 && (length(e2) - l | 0) >= o2){
      var
-      _U_ = 0 !== l ? 1 : 0,
+      _U_ = Object.is(0, l) ? 0 : 1,
       _V_ =
         _U_
          ?  /*<<weak.ml:69:22>>*/ runtime.caml_ephe_blit_key
@@ -25299,7 +25410,7 @@
             /*<<weak.ml:198:19>>*/ j$1 = j - 1 | 0,
            j = j$1;
         }
-        if(0 === prev_len){
+        if(Object.is(0, prev_len)){
          var _t_ = t[5];
           /*<<weak.ml:203:8>>*/ caml_check_bound(t[1], _t_)[1 + _t_] = emptybucket;
          var _u_ = t[5];
@@ -25325,7 +25436,7 @@
        }
        t[5] = caml_mod(t[5] + 1 | 0, t[1].length - 1);
         /*<<weak.ml:257:38>>*/  /*<<weak.ml:257:38>>*/ var _D_ = i$4 + 1 | 0;
-       if(2 === i$4) break;
+       if(Object.is(2, i$4)) break;
        var i$4 = _D_;
       }
      }
@@ -25865,7 +25976,9 @@
         /*<<format.ml:331:4>>*/ var
         width$2 = state[9] - off$1 | 0,
          /*<<format.ml:331:4>>*/ box_type$1 =
-          1 === ty ? 1 : state[9] < size$0 ? ty : 5;
+           /*<<format.ml:331:4>>*/ Object.is(1, ty)
+           ? 1
+           : state[9] < size$0 ? ty : 5;
         /*<<format.ml:336:4>>*/  /*<<format.ml:336:4>>*/ caml_call2
         (Stdlib_Stack[3], [0, box_type$1, width$2], state[2]);
         /*<<format.ml:336:4>>*/ return;
@@ -27108,11 +27221,11 @@
      }
       /*<<format.ml:1283:10>>*/  /*<<format.ml:1283:10>>*/ var
       match =  /*<<format.ml:1283:10>>*/ runtime.caml_string_get(s, right[1]);
-     if(10 === match){
+     if(Object.is(10, match)){
        /*<<format.ml:1285:8>>*/ flush(0);
        /*<<format.ml:1286:8>>*/ pp_force_newline(ppf, 0);
      }
-     else if(32 === match){
+     else if(Object.is(32, match)){
        /*<<format.ml:1288:8>>*/ flush(0);
        /*<<format.ml:1288:18>>*/ pp_print_space(ppf, 0);
      }
@@ -27910,7 +28023,7 @@
      ib[2] = c;
      ib[3] = 1;
      ib[4] = ib[4] + 1 | 0;
-     if(10 === c) ib[5] = ib[5] + 1 | 0;
+     if(Object.is(10, c)) ib[5] = ib[5] + 1 | 0;
       /*<<scanf.ml:171:6>>*/ return c;
     }
     catch(_bb_){
@@ -27938,7 +28051,7 @@
     return ib[1];
     /*<<scanf.ml:199:13>>*/ }
    function beginning_of_input(ib){
-     /*<<scanf.ml:204:30>>*/ return 0 === ib[4] ? 1 : 0;
+     /*<<scanf.ml:204:30>>*/ return Object.is(0, ib[4]) ? 1 : 0;
     /*<<scanf.ml:204:50>>*/ }
    function name_of_input(ib){
      /*<<scanf.ml:207:4>>*/ var match = ib[9];
@@ -28041,7 +28154,7 @@
        /*<<scanf.ml:334:19>>*/ throw  /*<<scanf.ml:334:19>>*/ caml_maybe_attach_backtrace
              (Stdlib[12], 1);
      lim[1] =  /*<<scanf.ml:335:15>>*/ caml_call4(Stdlib[84], ic, buf, 0, len);
-     return 0 === lim[1]
+     return Object.is(0, lim[1])
              ? (eof[1] = 1, caml_call1(scan_close_ic, ic))
              : (i[1] = 1,  /*<<scanf.ml:338:10>>*/ caml_bytes_get(buf, 0));
      /*<<scanf.ml:340:9>>*/ }
@@ -28113,17 +28226,18 @@
             : character_mismatch(c, ci);
     /*<<scanf.ml:476:25>>*/ }
    function check_char(ib, c$0){
-     /*<<scanf.ml:468:2>>*/ if(10 === c$0){
+     /*<<scanf.ml:468:2>>*/ if(Object.is(10, c$0)){
       /*<<scanf.ml:479:11>>*/  /*<<scanf.ml:479:11>>*/ var
       ci = checked_peek_char(ib);
-      /*<<scanf.ml:480:2>>*/ return 10 === ci
+      /*<<scanf.ml:480:2>>*/ return  /*<<scanf.ml:480:2>>*/ Object.is(10, ci)
              ? invalidate_current_char(ib)
-             : 13
-               === ci
+             : Object.is
+                (13, ci)
                ? (invalidate_current_char(ib), check_this_char(ib, 10))
                : character_mismatch(10, ci);
     }
-    if(32 !== c$0)  /*<<scanf.ml:471:9>>*/ return check_this_char(ib, c$0);
+    if(! Object.is(32, c$0))
+      /*<<scanf.ml:471:9>>*/ return check_this_char(ib, c$0);
      /*<<scanf.ml:444:2>>*/ for(;;){
       /*<<scanf.ml:444:10>>*/ var
        /*<<scanf.ml:444:10>>*/ c = peek_char(ib),
@@ -28133,7 +28247,7 @@
      a:
      {
       if(4 < _a8_ >>> 0){
-       if(23 === _a8_) break a;
+       if(Object.is(23, _a8_)) break a;
       }
       else if(1 < _a8_ - 2 >>> 0) break a;
        /*<<scanf.ml:449:11>>*/ return 0;
@@ -28204,7 +28318,11 @@
      /*<<scanf.ml:530:2>>*/  /*<<scanf.ml:530:2>>*/ var
      l =  /*<<scanf.ml:530:2>>*/ caml_ml_string_length(tok);
      /*<<scanf.ml:531:14>>*/ if
-     (0 !== l && 43 ===  /*<<scanf.ml:531:14>>*/ caml_string_get(tok, 0))
+     (!
+       /*<<scanf.ml:531:2>>*/ Object.is(0, l)
+      &&
+        /*<<scanf.ml:531:14>>*/ Object.is
+        (43,  /*<<scanf.ml:531:14>>*/ caml_string_get(tok, 0)))
       /*<<scanf.ml:531:43>>*/ return  /*<<scanf.ml:531:43>>*/ caml_call3
              (Stdlib_String[16], tok, 1, l - 1 | 0);
      /*<<scanf.ml:531:34>>*/ return tok;
@@ -28216,12 +28334,12 @@
    function scan_decimal_digit_star(width, ib){
      /*<<scanf.ml:575:2>>*/ var width$0 = width;
      /*<<scanf.ml:575:2>>*/ for(;;){
-     if(0 === width$0)  /*<<scanf.ml:575:20>>*/ return width$0;
+     if(Object.is(0, width$0))  /*<<scanf.ml:575:20>>*/ return width$0;
       /*<<scanf.ml:576:10>>*/  /*<<scanf.ml:576:10>>*/ var c = peek_char(ib);
       /*<<scanf.ml:577:5>>*/ if(ib[1])
        /*<<scanf.ml:577:26>>*/ return width$0;
      if(58 <= c){
-      if(95 === c){
+      if(Object.is(95, c)){
         /*<<scanf.ml:583:16>>*/ var
          /*<<scanf.ml:583:16>>*/ width$1 = ignore_char(width$0, ib),
         width$0 = width$1;
@@ -28238,7 +28356,7 @@
     }
     /*<<scanf.ml:585:14>>*/ }
    function scan_decimal_digit_plus(width, ib){
-     /*<<scanf.ml:589:2>>*/ if(0 === width)
+     /*<<scanf.ml:589:2>>*/ if(Object.is(0, width))
       /*<<scanf.ml:589:20>>*/ return bad_token_length(cst_decimal_digits);
      /*<<scanf.ml:590:10>>*/  /*<<scanf.ml:590:10>>*/ var
      c = checked_peek_char(ib);
@@ -28250,7 +28368,7 @@
      /*<<scanf.ml:594:4>>*/ return scan_decimal_digit_star(width$0, ib);
     /*<<scanf.ml:596:70>>*/ }
    function scan_digit_plus(basis, digitp, width$2, ib){
-     /*<<scanf.ml:620:2>>*/ if(0 === width$2)
+     /*<<scanf.ml:620:2>>*/ if(Object.is(0, width$2))
       /*<<scanf.ml:620:20>>*/ return bad_token_length(cst_digits);
      /*<<scanf.ml:621:10>>*/  /*<<scanf.ml:621:10>>*/ var
      c$0 = checked_peek_char(ib);
@@ -28263,7 +28381,7 @@
       /*<<scanf.ml:623:16>>*/ width$3 = store_char(width$2, ib, c$0),
      width = width$3;
      /*<<scanf.ml:603:4>>*/ for(;;){
-     if(0 === width)  /*<<scanf.ml:603:22>>*/ return width;
+     if(Object.is(0, width))  /*<<scanf.ml:603:22>>*/ return width;
       /*<<scanf.ml:604:12>>*/  /*<<scanf.ml:604:12>>*/ var c = peek_char(ib);
       /*<<scanf.ml:605:7>>*/ if(ib[1])  /*<<scanf.ml:605:28>>*/ return width;
       /*<<scanf.ml:607:13>>*/ if
@@ -28272,7 +28390,7 @@
         /*<<scanf.ml:608:18>>*/ width$0 = store_char(width, ib, c),
        width = width$0;
      else{
-      if(95 !== c)  /*<<scanf.ml:613:11>>*/ return width;
+      if(! Object.is(95, c))  /*<<scanf.ml:613:11>>*/ return width;
        /*<<scanf.ml:611:18>>*/ var
         /*<<scanf.ml:611:18>>*/ width$1 = ignore_char(width, ib),
        width = width$1;
@@ -28337,11 +28455,11 @@
         /*<<scanf.ml:686:14>>*/ var
          /*<<scanf.ml:686:14>>*/ width$0 = scan_sign(width$1, ib),
          /*<<scanf.ml:671:8>>*/ c = checked_peek_char(ib);
-       if(48 !== c)
+       if(! Object.is(48, c))
          /*<<scanf.ml:682:9>>*/ return scan_decimal_digit_plus(width$0, ib);
         /*<<scanf.ml:673:16>>*/  /*<<scanf.ml:673:16>>*/ var
         width = store_char(width$0, ib, c);
-        /*<<scanf.ml:674:4>>*/ if(0 === width)
+        /*<<scanf.ml:674:4>>*/ if( /*<<scanf.ml:674:4>>*/ Object.is(0, width))
          /*<<scanf.ml:674:22>>*/ return width;
         /*<<scanf.ml:675:12>>*/  /*<<scanf.ml:675:12>>*/ var
         c$0 = peek_char(ib);
@@ -28350,13 +28468,13 @@
        a:
        {
         if(99 <= c$0){
-         if(111 === c$0)
+         if(Object.is(111, c$0))
            /*<<scanf.ml:679:13>>*/ return scan_octal_int
                   (store_char(width, ib, c$0), ib);
-         if(120 === c$0) break a;
+         if(Object.is(120, c$0)) break a;
         }
         else{
-         if(88 === c$0) break a;
+         if(Object.is(88, c$0)) break a;
          if(98 <= c$0)
            /*<<scanf.ml:680:13>>*/ return scan_binary_int
                   (store_char(width, ib, c$0), ib);
@@ -28374,7 +28492,7 @@
     }
     /*<<scanf.ml:697:49>>*/ }
    function scan_fractional_part(width, ib){
-     /*<<scanf.ml:704:2>>*/ if(0 === width)
+     /*<<scanf.ml:704:2>>*/ if(Object.is(0, width))
       /*<<scanf.ml:704:20>>*/ return width;
      /*<<scanf.ml:705:10>>*/  /*<<scanf.ml:705:10>>*/ var c = peek_char(ib);
      /*<<scanf.ml:706:5>>*/ return ib[1]
@@ -28385,11 +28503,12 @@
               : scan_decimal_digit_star(store_char(width, ib, c), ib);
     /*<<scanf.ml:710:14>>*/ }
    function scan_exponent_part(width, ib){
-     /*<<scanf.ml:715:2>>*/ if(0 === width)
+     /*<<scanf.ml:715:2>>*/ if(Object.is(0, width))
       /*<<scanf.ml:715:20>>*/ return width;
      /*<<scanf.ml:716:10>>*/  /*<<scanf.ml:716:10>>*/ var c = peek_char(ib);
      /*<<scanf.ml:717:5>>*/ if(ib[1])  /*<<scanf.ml:717:26>>*/ return width;
-    if(69 !== c && 101 !== c)  /*<<scanf.ml:721:9>>*/ return width;
+    if(! Object.is(69, c) && ! Object.is(101, c))
+      /*<<scanf.ml:721:9>>*/ return width;
      /*<<scanf.ml:720:4>>*/ return scan_optionally_signed_decimal
             (store_char(width, ib, c), ib);
     /*<<scanf.ml:721:14>>*/ }
@@ -28397,12 +28516,12 @@
      /*<<scanf.ml:765:2>>*/ var
       /*<<scanf.ml:729:14>>*/ width = scan_sign(width$1, ib),
       /*<<scanf.ml:730:2>>*/ width$0 = scan_decimal_digit_star(width, ib);
-     /*<<scanf.ml:766:2>>*/ if(0 === width$0)
+     /*<<scanf.ml:766:2>>*/ if( /*<<scanf.ml:766:2>>*/ Object.is(0, width$0))
       /*<<scanf.ml:766:20>>*/ return [0, width$0, precision];
      /*<<scanf.ml:767:10>>*/  /*<<scanf.ml:767:10>>*/ var c = peek_char(ib);
      /*<<scanf.ml:768:5>>*/ if(ib[1])
       /*<<scanf.ml:768:26>>*/ return [0, width$0, precision];
-    if(46 !== c)
+    if(! Object.is(46, c))
       /*<<scanf.ml:776:4>>*/ return [0,
              scan_exponent_part(width$0, ib),
              precision];
@@ -28437,7 +28556,7 @@
          lowercase( /*<<scanf.ml:789:32>>*/ caml_string_get(str, i));
       if(!  /*<<scanf.ml:789:7>>*/ Object.is(lowercase(c), _aU_))
         /*<<scanf.ml:789:45>>*/  /*<<scanf.ml:789:45>>*/ caml_call1(error, 0);
-      if(0 === width$0[1])
+      if(Object.is(0, width$0[1]))
         /*<<scanf.ml:790:23>>*/  /*<<scanf.ml:790:23>>*/ caml_call1(error, 0);
       width$0[1] = store_char(width$0[1], ib, c);
        /*<<scanf.ml:787:2>>*/  /*<<scanf.ml:787:2>>*/ var _aV_ = i + 1 | 0;
@@ -28449,13 +28568,13 @@
     /*<<scanf.ml:793:8>>*/ }
    function scan_hex_float(width, precision, ib){
      /*<<scanf.ml:797:2>>*/ var
-     _aF_ = 0 === width ? 1 : 0,
+     _aF_ = Object.is(0, width) ? 1 : 0,
      _aG_ = _aF_ || end_of_input(ib);
      /*<<scanf.ml:797:18>>*/ if(_aG_)
       /*<<scanf.ml:797:48>>*/ bad_hex_float(0);
      /*<<scanf.ml:798:14>>*/ var
       /*<<scanf.ml:798:14>>*/ width$0 = scan_sign(width, ib),
-     _aH_ = 0 === width$0 ? 1 : 0,
+     _aH_ = Object.is(0, width$0) ? 1 : 0,
      _aI_ = _aH_ || end_of_input(ib);
      /*<<scanf.ml:799:18>>*/ if(_aI_)
       /*<<scanf.ml:799:48>>*/ bad_hex_float(0);
@@ -28469,27 +28588,28 @@
        if(32 <= switcher) break a;
         /*<<scanf.ml:830:16>>*/ var
          /*<<scanf.ml:830:16>>*/ width$1 = store_char(width$0, ib, c),
-        _aJ_ = 0 === width$1 ? 1 : 0,
+        _aJ_ = Object.is(0, width$1) ? 1 : 0,
         _aK_ = _aJ_ || end_of_input(ib);
         /*<<scanf.ml:831:20>>*/ if(_aK_)
          /*<<scanf.ml:831:50>>*/ bad_hex_float(0);
         /*<<scanf.ml:831:50>>*/ return check_case_insensitive_string
                (width$1, ib, bad_hex_float, cst_an);
       }
-      if(26 !== switcher) break a;
+      if(! Object.is(26, switcher)) break a;
      }
      else{
-      if(48 === c){
+      if(Object.is(48, c)){
         /*<<scanf.ml:802:16>>*/ var
          /*<<scanf.ml:802:16>>*/ width$3 = store_char(width$0, ib, c),
-        _aN_ = 0 === width$3 ? 1 : 0,
+        _aN_ = Object.is(0, width$3) ? 1 : 0,
         _aO_ = _aN_ || end_of_input(ib);
         /*<<scanf.ml:803:20>>*/ if(_aO_)
          /*<<scanf.ml:803:50>>*/ bad_hex_float(0);
         /*<<scanf.ml:804:16>>*/  /*<<scanf.ml:804:16>>*/ var
         width$4 =
           check_case_insensitive_string(width$3, ib, bad_hex_float, cst_x);
-        /*<<scanf.ml:805:20>>*/ if(0 !== width$4 && ! end_of_input(ib)){
+        /*<<scanf.ml:805:20>>*/ if
+        (!  /*<<scanf.ml:805:4>>*/ Object.is(0, width$4) && ! end_of_input(ib)){
          /*<<scanf.ml:806:24>>*/  /*<<scanf.ml:806:24>>*/ var
          _aP_ = peek_char(ib) - 46 | 0;
         b:
@@ -28497,7 +28617,7 @@
          c:
          {
           if(34 < _aP_ >>> 0){
-           if(66 === _aP_) break c;
+           if(Object.is(66, _aP_)) break c;
           }
           else if(32 < _aP_ - 1 >>> 0) break c;
           var width$5 = scan_hexadecimal_int(width$4, ib);
@@ -28505,20 +28625,26 @@
          }
          var width$5 = width$4;
         }
-         /*<<scanf.ml:809:22>>*/ if(0 !== width$5 && ! end_of_input(ib)){
+         /*<<scanf.ml:809:22>>*/ if
+         (!
+           /*<<scanf.ml:809:6>>*/ Object.is(0, width$5)
+          && ! end_of_input(ib)){
           /*<<scanf.ml:810:26>>*/  /*<<scanf.ml:810:26>>*/ var
           c$0 = peek_char(ib);
-         if(46 === c$0){
+         if(Object.is(46, c$0)){
            /*<<scanf.ml:812:24>>*/  /*<<scanf.ml:812:24>>*/ var
            width$6 = store_char(width$5, ib, c$0);
           b:
           {
-            /*<<scanf.ml:813:28>>*/ if(0 !== width$6 && ! end_of_input(ib)){
+            /*<<scanf.ml:813:28>>*/ if
+            (!
+              /*<<scanf.ml:813:12>>*/ Object.is(0, width$6)
+             && ! end_of_input(ib)){
              /*<<scanf.ml:814:20>>*/  /*<<scanf.ml:814:20>>*/ var
              match = peek_char(ib);
             c:
             {
-             if(80 !== match && 112 !== match){
+             if(! Object.is(80, match) && ! Object.is(112, match)){
                /*<<scanf.ml:817:32>>*/ var
                 /*<<scanf.ml:817:32>>*/ precision$0 =
                   /*<<scanf.ml:817:32>>*/ caml_call2
@@ -28540,14 +28666,17 @@
          }
          else
           var width$8 = width$5;
-          /*<<scanf.ml:821:24>>*/ if(0 !== width$8 && ! end_of_input(ib)){
+          /*<<scanf.ml:821:24>>*/ if
+          (!
+            /*<<scanf.ml:821:8>>*/ Object.is(0, width$8)
+           && ! end_of_input(ib)){
            /*<<scanf.ml:822:16>>*/  /*<<scanf.ml:822:16>>*/ var
            c$1 = peek_char(ib);
-          if(80 !== c$1 && 112 !== c$1)
+          if(! Object.is(80, c$1) && ! Object.is(112, c$1))
             /*<<scanf.ml:827:17>>*/ return width$8;
            /*<<scanf.ml:824:24>>*/ var
             /*<<scanf.ml:824:24>>*/ width$9 = store_char(width$8, ib, c$1),
-           _aQ_ = 0 === width$9 ? 1 : 0,
+           _aQ_ = Object.is(0, width$9) ? 1 : 0,
            _aR_ = _aQ_ || end_of_input(ib);
            /*<<scanf.ml:825:28>>*/ if(_aR_)
             /*<<scanf.ml:825:58>>*/ bad_hex_float(0);
@@ -28560,11 +28689,11 @@
        }
         /*<<scanf.ml:805:50>>*/ return width$4;
       }
-      if(73 !== c) break a;
+      if(! Object.is(73, c)) break a;
      }
       /*<<scanf.ml:834:16>>*/ var
        /*<<scanf.ml:834:16>>*/ width$2 = store_char(width$0, ib, c),
-      _aL_ = 0 === width$2 ? 1 : 0,
+      _aL_ = Object.is(0, width$2) ? 1 : 0,
       _aM_ = _aL_ || end_of_input(ib);
       /*<<scanf.ml:835:20>>*/ if(_aM_)
        /*<<scanf.ml:835:50>>*/ bad_hex_float(0);
@@ -28575,19 +28704,19 @@
     /*<<scanf.ml:837:25>>*/ }
    function scan_caml_float_rest(width, precision, ib){
      /*<<scanf.ml:841:2>>*/ var
-     _aB_ = 0 === width ? 1 : 0,
+     _aB_ = Object.is(0, width) ? 1 : 0,
      _aC_ = _aB_ || end_of_input(ib);
      /*<<scanf.ml:841:18>>*/ if(_aC_)  /*<<scanf.ml:841:48>>*/ bad_float(0);
      /*<<scanf.ml:842:14>>*/ var
       /*<<scanf.ml:842:14>>*/ width$0 = scan_decimal_digit_star(width, ib),
-     _aD_ = 0 === width$0 ? 1 : 0,
+     _aD_ = Object.is(0, width$0) ? 1 : 0,
      _aE_ = _aD_ || end_of_input(ib);
      /*<<scanf.ml:843:18>>*/ if(_aE_)  /*<<scanf.ml:843:48>>*/ bad_float(0);
      /*<<scanf.ml:844:10>>*/ var
       /*<<scanf.ml:844:10>>*/ c = peek_char(ib),
       /*<<scanf.ml:844:10>>*/ switcher = c - 69 | 0;
     if(32 < switcher >>> 0){
-     if(-23 === switcher){
+     if(Object.is(-23, switcher)){
        /*<<scanf.ml:847:16>>*/ var
         /*<<scanf.ml:847:16>>*/ width$1 = store_char(width$0, ib, c),
         /*<<scanf.ml:850:20>>*/ precision$0 =
@@ -28606,12 +28735,12 @@
     /*<<scanf.ml:862:21>>*/ }
    function scan_caml_float(width, precision, ib){
      /*<<scanf.ml:866:2>>*/ var
-     _an_ = 0 === width ? 1 : 0,
+     _an_ = Object.is(0, width) ? 1 : 0,
      _ao_ = _an_ || end_of_input(ib);
      /*<<scanf.ml:866:18>>*/ if(_ao_)  /*<<scanf.ml:866:48>>*/ bad_float(0);
      /*<<scanf.ml:867:14>>*/ var
       /*<<scanf.ml:867:14>>*/ width$0 = scan_sign(width, ib),
-     _ap_ = 0 === width$0 ? 1 : 0,
+     _ap_ = Object.is(0, width$0) ? 1 : 0,
      _aq_ = _ap_ || end_of_input(ib);
      /*<<scanf.ml:868:18>>*/ if(_aq_)  /*<<scanf.ml:868:48>>*/ bad_float(0);
      /*<<scanf.ml:869:8>>*/  /*<<scanf.ml:869:8>>*/ var c = peek_char(ib);
@@ -28619,7 +28748,7 @@
      if(58 > c){
        /*<<scanf.ml:903:16>>*/ var
         /*<<scanf.ml:903:16>>*/ width$1 = store_char(width$0, ib, c),
-       _ar_ = 0 === width$1 ? 1 : 0,
+       _ar_ = Object.is(0, width$1) ? 1 : 0,
        _as_ = _ar_ || end_of_input(ib);
        /*<<scanf.ml:904:20>>*/ if(_as_)  /*<<scanf.ml:904:50>>*/ bad_float(0);
        /*<<scanf.ml:904:50>>*/ return scan_caml_float_rest
@@ -28629,22 +28758,22 @@
     else if(48 <= c){
       /*<<scanf.ml:871:16>>*/ var
        /*<<scanf.ml:871:16>>*/ width$2 = store_char(width$0, ib, c),
-      _at_ = 0 === width$2 ? 1 : 0,
+      _at_ = Object.is(0, width$2) ? 1 : 0,
       _au_ = _at_ || end_of_input(ib);
       /*<<scanf.ml:872:20>>*/ if(_au_)  /*<<scanf.ml:872:50>>*/ bad_float(0);
       /*<<scanf.ml:873:10>>*/  /*<<scanf.ml:873:10>>*/ var
       c$0 = peek_char(ib);
-     if(88 !== c$0 && 120 !== c$0)
+     if(! Object.is(88, c$0) && ! Object.is(120, c$0))
        /*<<scanf.ml:900:6>>*/ return scan_caml_float_rest
               (width$2, precision, ib);
       /*<<scanf.ml:875:18>>*/ var
        /*<<scanf.ml:875:18>>*/ width$3 = store_char(width$2, ib, c$0),
-      _av_ = 0 === width$3 ? 1 : 0,
+      _av_ = Object.is(0, width$3) ? 1 : 0,
       _aw_ = _av_ || end_of_input(ib);
       /*<<scanf.ml:876:22>>*/ if(_aw_)  /*<<scanf.ml:876:52>>*/ bad_float(0);
       /*<<scanf.ml:877:18>>*/ var
        /*<<scanf.ml:877:18>>*/ width$4 = scan_hexadecimal_int(width$3, ib),
-      _ax_ = 0 === width$4 ? 1 : 0,
+      _ax_ = Object.is(0, width$4) ? 1 : 0,
       _ay_ = _ax_ || end_of_input(ib);
       /*<<scanf.ml:878:22>>*/ if(_ay_)  /*<<scanf.ml:878:52>>*/ bad_float(0);
       /*<<scanf.ml:879:24>>*/ var
@@ -28655,17 +28784,20 @@
       b:
       {
        if(32 < switcher >>> 0){
-        if(-34 === switcher){
+        if(Object.is(-34, switcher)){
           /*<<scanf.ml:881:22>>*/  /*<<scanf.ml:881:22>>*/ var
           width$5 = store_char(width$4, ib, c$1);
          c:
          {
-           /*<<scanf.ml:882:26>>*/ if(0 !== width$5 && ! end_of_input(ib)){
+           /*<<scanf.ml:882:26>>*/ if
+           (!
+             /*<<scanf.ml:882:10>>*/ Object.is(0, width$5)
+            && ! end_of_input(ib)){
             /*<<scanf.ml:883:18>>*/  /*<<scanf.ml:883:18>>*/ var
             match = peek_char(ib);
            d:
            {
-            if(80 !== match && 112 !== match){
+            if(! Object.is(80, match) && ! Object.is(112, match)){
               /*<<scanf.ml:886:30>>*/ var
                /*<<scanf.ml:886:30>>*/ precision$0 =
                  /*<<scanf.ml:886:30>>*/ caml_call2
@@ -28693,13 +28825,15 @@
       }
       var width$8 = width$7;
      }
-      /*<<scanf.ml:891:22>>*/ if(0 !== width$8 && ! end_of_input(ib)){
+      /*<<scanf.ml:891:22>>*/ if
+      (!  /*<<scanf.ml:891:6>>*/ Object.is(0, width$8) && ! end_of_input(ib)){
        /*<<scanf.ml:892:14>>*/  /*<<scanf.ml:892:14>>*/ var
        c$2 = peek_char(ib);
-      if(80 !== c$2 && 112 !== c$2)  /*<<scanf.ml:897:15>>*/ return width$8;
+      if(! Object.is(80, c$2) && ! Object.is(112, c$2))
+        /*<<scanf.ml:897:15>>*/ return width$8;
        /*<<scanf.ml:894:22>>*/ var
         /*<<scanf.ml:894:22>>*/ width$9 = store_char(width$8, ib, c$2),
-       _az_ = 0 === width$9 ? 1 : 0,
+       _az_ = Object.is(0, width$9) ? 1 : 0,
        _aA_ = _az_ || end_of_input(ib);
        /*<<scanf.ml:895:26>>*/ if(_aA_)
         /*<<scanf.ml:895:56>>*/ bad_hex_float(0);
@@ -28713,7 +28847,7 @@
    function scan_string(stp, width, ib){
      /*<<scanf.ml:920:2>>*/ var width$0 = width;
      /*<<scanf.ml:921:4>>*/ for(;;){
-     if(0 === width$0)  /*<<scanf.ml:921:22>>*/ return width$0;
+     if(Object.is(0, width$0))  /*<<scanf.ml:921:22>>*/ return width$0;
       /*<<scanf.ml:922:12>>*/  /*<<scanf.ml:922:12>>*/ var c = peek_char(ib);
       /*<<scanf.ml:923:7>>*/ if(ib[1])
        /*<<scanf.ml:923:28>>*/ return width$0;
@@ -28722,7 +28856,7 @@
       a:
       {
        if(4 < _am_ >>> 0){
-        if(23 === _am_) break a;
+        if(Object.is(23, _am_)) break a;
        }
        else if(1 < _am_ - 2 >>> 0) break a;
         /*<<scanf.ml:930:20>>*/ var
@@ -28746,7 +28880,7 @@
             : 65 <= c ? c - 55 | 0 : c - 48 | 0;
     /*<<scanf.ml:979:23>>*/ }
    function check_next_char(message, width, ib){
-     /*<<scanf.ml:995:2>>*/ if(0 === width)
+     /*<<scanf.ml:995:2>>*/ if(Object.is(0, width))
       /*<<scanf.ml:995:20>>*/ return bad_token_length(message);
      /*<<scanf.ml:996:10>>*/  /*<<scanf.ml:996:10>>*/ var c = peek_char(ib);
      /*<<scanf.ml:997:5>>*/ return ib[1]
@@ -28842,7 +28976,7 @@
         default: break a;
       }
      }
-     else if(34 !== c0 && 39 > c0) break a;
+     else if(! Object.is(34, c0) && 39 > c0) break a;
      b:
      {
       if(110 <= c0){
@@ -28856,7 +28990,7 @@
            var _ae_ = 9; break b;
         }
       }
-      else if(98 === c0){var _ae_ = 8; break b;}
+      else if(Object.is(98, c0)){var _ae_ = 8; break b;}
       var _ae_ = c0;
      }
       /*<<scanf.ml:1007:33>>*/ return store_char(width, ib, _ae_);
@@ -28869,13 +29003,14 @@
       /*<<scanf.ml:1063:4>>*/ for(;;){
        /*<<scanf.ml:1063:10>>*/  /*<<scanf.ml:1063:10>>*/ var
        c = check_next_char_for_string(width$0, ib);
-      if(34 === c)  /*<<scanf.ml:1057:2>>*/ return ignore_char(width$0, ib);
-      if(92 === c){
+      if(Object.is(34, c))
+        /*<<scanf.ml:1057:2>>*/ return ignore_char(width$0, ib);
+      if(Object.is(92, c)){
         /*<<scanf.ml:1065:29>>*/ var
          /*<<scanf.ml:1065:29>>*/ width$1 = ignore_char(width$0, ib),
          /*<<scanf.ml:1069:10>>*/ match =
           check_next_char_for_string(width$1, ib);
-       if(10 === match){
+       if(Object.is(10, match)){
          /*<<scanf.ml:1071:26>>*/  /*<<scanf.ml:1071:26>>*/ var
          _ab_ = ignore_char(width$1, ib);
          /*<<scanf.ml:1071:26>>*/ if(counter >= 50)
@@ -28884,10 +29019,10 @@
         var counter$0 = counter + 1 | 0;
          /*<<scanf.ml:1071:26>>*/ return skip_spaces(counter$0, _ab_);
        }
-       if(13 === match){
+       if(Object.is(13, match)){
          /*<<scanf.ml:1070:27>>*/  /*<<scanf.ml:1070:27>>*/ var
          width$3 = ignore_char(width$1, ib);
-        if(10 === check_next_char_for_string(width$3, ib)){
+        if(Object.is(10, check_next_char_for_string(width$3, ib))){
           /*<<scanf.ml:1076:26>>*/  /*<<scanf.ml:1076:26>>*/ var
           _ac_ = ignore_char(width$3, ib);
           /*<<scanf.ml:1076:26>>*/ if(counter >= 50)
@@ -28914,7 +29049,7 @@
     function skip_spaces(counter, width){
       /*<<scanf.ml:1080:4>>*/ var width$0 = width;
       /*<<scanf.ml:1080:4>>*/ for(;;){
-      if(32 !== check_next_char_for_string(width$0, ib)){
+      if(! Object.is(32, check_next_char_for_string(width$0, ib))){
         /*<<scanf.ml:1082:11>>*/ if(counter >= 50)
          /*<<scanf.ml:1082:11>>*/ return  /*<<scanf.ml:1082:11>>*/ caml_trampoline_return
                 (find_stop$0, [0, width$0]);
@@ -28931,7 +29066,7 @@
     }
      /*<<scanf.ml:1058:10>>*/  /*<<scanf.ml:1058:10>>*/ var
      c = checked_peek_char(ib);
-    return 34 === c
+    return Object.is(34, c)
             ? find_stop(ignore_char(width, ib))
             : character_mismatch(34, c);
     /*<<scanf.ml:1084:18>>*/ }
@@ -28999,7 +29134,7 @@
      /*<<scanf.ml:1140:18>>*/ return width;
     /*<<scanf.ml:1140:23>>*/ }
    function stopper_of_formatting_lit(fmting){
-     /*<<scanf.ml:1144:2>>*/ if(6 === fmting)
+     /*<<scanf.ml:1144:2>>*/ if(Object.is(6, fmting))
       /*<<scanf.ml:1144:35>>*/ return _p_;
      /*<<scanf.ml:1145:14>>*/ var
       /*<<scanf.ml:1145:14>>*/ str =
@@ -29301,7 +29436,7 @@
            function(width){
              /*<<scanf.ml:1047:4>>*/  /*<<scanf.ml:1047:10>>*/ var
              c = check_next_char_for_char(width, ib);
-            if(39 === c){
+            if(Object.is(39, c)){
               /*<<scanf.ml:1034:2>>*/ ignore_char(width, ib);
               /*<<scanf.ml:1034:2>>*/ return;
             }
@@ -29309,11 +29444,11 @@
              /*<<scanf.ml:1049:11>>*/ return;
             /*<<scanf.ml:1049:36>>*/ },
           /*<<scanf.ml:1035:10>>*/ c = checked_peek_char(ib);
-        if(39 === c){
+        if(Object.is(39, c)){
           /*<<scanf.ml:1036:24>>*/ var
            /*<<scanf.ml:1036:24>>*/ width = ignore_char(width$0, ib),
            /*<<scanf.ml:1040:10>>*/ c$0 = check_next_char_for_char(width, ib);
-         if(92 === c$0)
+         if(Object.is(92, c$0))
            /*<<scanf.ml:1042:16>>*/ find_stop
            (scan_backslash_char(ignore_char(width, ib), ib));
          else
@@ -29549,10 +29684,10 @@
              /*<<scanf.ml:1320:22>>*/ var
               /*<<scanf.ml:1089:10>>*/ c = checked_peek_char(ib),
               /*<<scanf.ml:1090:2>>*/ m =
-               102 === c
+                /*<<scanf.ml:1090:2>>*/ Object.is(102, c)
                 ? 5
-                : 116
-                  === c
+                : Object.is
+                   (116, c)
                   ? 4
                   : bad_input
                     ( /*<<scanf.ml:1096:8>>*/ caml_call2
@@ -30213,7 +30348,7 @@
     }
     /*<<camlinternalOO.ml:189:41>>*/ }
    function to_list(arr){
-     /*<<camlinternalOO.ml:192:2>>*/ return 0 === arr
+     /*<<camlinternalOO.ml:192:2>>*/ return Object.is(0, arr)
             ? 0
             :  /*<<camlinternalOO.ml:192:37>>*/ caml_call1
               (Stdlib_Array[9], arr);
@@ -30437,7 +30572,7 @@
     return 0;
     /*<<camlinternalOO.ml:285:45>>*/ }
    function create_table(public_methods){
-     /*<<camlinternalOO.ml:299:2>>*/ if(0 === public_methods)
+     /*<<camlinternalOO.ml:299:2>>*/ if(Object.is(0, public_methods))
       /*<<camlinternalOO.ml:299:50>>*/ return new_table([0]);
      /*<<camlinternalOO.ml:301:13>>*/ var
       /*<<camlinternalOO.ml:301:13>>*/ tags =
@@ -30568,14 +30703,15 @@
    function run_initializers(obj, table){
      /*<<camlinternalOO.ml:372:2>>*/ var
      inits = table[8],
-     _r_ = 0 !== inits ? 1 : 0;
+     _r_ = Object.is(0, inits) ? 0 : 1;
     return _r_ ? iter_f(obj, inits) : _r_;
     /*<<camlinternalOO.ml:374:20>>*/ }
    function run_initializers_opt(obj_0, obj, table){
      /*<<camlinternalOO.ml:377:2>>*/ if(obj_0)
       /*<<camlinternalOO.ml:377:35>>*/ return obj;
     var inits = table[8];
-    if(0 !== inits)  /*<<camlinternalOO.ml:379:24>>*/ iter_f(obj, inits);
+    if(! Object.is(0, inits))
+      /*<<camlinternalOO.ml:379:24>>*/ iter_f(obj, inits);
      /*<<camlinternalOO.ml:379:24>>*/ return obj;
     /*<<camlinternalOO.ml:381:5>>*/ }
    function create_object_and_run_initiali(obj_0, table){
@@ -31155,8 +31291,8 @@
                   /*<<camlinternalMod.ml:39:13>>*/ throw  /*<<camlinternalMod.ml:39:13>>*/ caml_maybe_attach_backtrace
                         ([0, Stdlib[15], loc], 1);
                 var _j_ = caml_obj_tag(l$0);
-                if(250 === _j_) return l$0[1];
-                if(246 !== _j_ && 244 !== _j_)
+                if(Object.is(250, _j_)) return l$0[1];
+                if(! Object.is(246, _j_) && ! Object.is(244, _j_))
                   /*<<camlinternalMod.ml:41:13>>*/ return l$0;
                  /*<<camlinternalMod.ml:41:13>>*/ return  /*<<camlinternalMod.ml:41:13>>*/ caml_call1
                         (CamlinternalLazy[2], l$0);};
@@ -31194,7 +31330,8 @@
     /*<<camlinternalMod.ml:63:58>>*/ }
    function update_mod_block(comps$0, modu, n){
      /*<<camlinternalMod.ml:81:2>>*/ if
-     (0 ===  /*<<camlinternalMod.ml:81:10>>*/ caml_obj_tag(n)
+     ( /*<<camlinternalMod.ml:81:10>>*/ Object.is
+       (0,  /*<<camlinternalMod.ml:81:10>>*/ caml_obj_tag(n))
       && comps$0.length - 1 <= n.length - 1){
       /*<<camlinternalMod.ml:82:2>>*/ var
       _e_ = comps$0.length - 1 - 1 | 0,
@@ -31210,8 +31347,9 @@
        if(typeof shape === "number"){
         if(2 === shape){
          if
-          (0 ===  /*<<camlinternalMod.ml:72:13>>*/ caml_obj_tag(n$0)
-           && 4 === n$0.length - 1){
+          ( /*<<camlinternalMod.ml:72:13>>*/ Object.is
+            (0,  /*<<camlinternalMod.ml:72:13>>*/ caml_obj_tag(n$0))
+           && Object.is(4, n$0.length - 1)){
            /*<<camlinternalMod.ml:73:14>>*/ var
             /*<<camlinternalMod.ml:73:14>>*/ cl = modu[1 + i],
            j = 0;
@@ -31219,7 +31357,7 @@
             /*<<camlinternalMod.ml:75:7>>*/ cl[1 + j] = n$0[1 + j];
             /*<<camlinternalMod.ml:75:7>>*/  /*<<camlinternalMod.ml:75:7>>*/ var
             _c_ = j + 1 | 0;
-           if(3 === j) break;
+           if(Object.is(3, j)) break;
            var j = _c_;
           }
           break a;
@@ -31327,10 +31465,10 @@
       /*<<ephemeron.ml:109:6>>*/ if(random){
       var _aK_ = runtime.caml_obj_tag(prng);
       a:
-      if(250 === _aK_)
+      if(Object.is(250, _aK_))
        var _aL_ = prng[1];
       else{
-       if(246 !== _aK_ && 244 !== _aK_){var _aL_ = prng; break a;}
+       if(! Object.is(246, _aK_) && ! Object.is(244, _aK_)){var _aL_ = prng; break a;}
        var _aL_ = caml_call1(CamlinternalLazy[2], prng);
       }
       var
@@ -32718,8 +32856,8 @@
     }
     /*<<filename.ml:70:44>>*/ }
    function is_dir_sep(s, i){
-     /*<<filename.ml:96:23>>*/ return 47
-            ===  /*<<filename.ml:96:23>>*/ caml_string_get(s, i)
+     /*<<filename.ml:96:23>>*/ return Object.is
+             (47,  /*<<filename.ml:96:23>>*/ caml_string_get(s, i))
             ? 1
             : 0;
     /*<<filename.ml:96:34>>*/ }
@@ -32728,7 +32866,10 @@
      _aJ_ = caml_ml_string_length(n) < 1 ? 1 : 0,
      _aK_ =
        _aJ_
-       || (47 !==  /*<<filename.ml:97:45>>*/ caml_string_get(n, 0) ? 1 : 0);
+       ||
+        (Object.is(47,  /*<<filename.ml:97:45>>*/ caml_string_get(n, 0))
+          ? 0
+          : 1);
     return _aK_;
     /*<<filename.ml:97:57>>*/ }
    function is_implicit(n){
@@ -32804,7 +32945,8 @@
      var i = _az_;
      for(;;){
        /*<<filename.ml:21:7>>*/ if
-       (39 ===  /*<<filename.ml:21:7>>*/ caml_string_get(s, i))
+       ( /*<<filename.ml:21:7>>*/ Object.is
+         (39,  /*<<filename.ml:21:7>>*/ caml_string_get(s, i)))
         /*<<filename.ml:22:9>>*/  /*<<filename.ml:22:9>>*/ caml_call2
         (Stdlib_Buffer[16], b, quotequote);
       else{
@@ -32892,11 +33034,13 @@
      /*<<filename.ml:135:23>>*/ var
       /*<<filename.ml:135:31>>*/ c =
         /*<<filename.ml:135:31>>*/ caml_string_get(s, i),
-     _aj_ = 47 === c ? 1 : 0;
+     _aj_ = Object.is(47, c) ? 1 : 0;
     if(_aj_)
      var _ak_ = _aj_;
     else
-     var _al_ = 92 === c ? 1 : 0, _ak_ = _al_ || (58 === c ? 1 : 0);
+     var
+      _al_ = Object.is(92, c) ? 1 : 0,
+      _ak_ = _al_ || (Object.is(58, c) ? 1 : 0);
     return _ak_;
     /*<<filename.ml:135:70>>*/ }
    function is_relative$0(n){
@@ -32904,19 +33048,28 @@
      _ad_ = caml_ml_string_length(n) < 1 ? 1 : 0,
      _ae_ =
        _ad_
-       || (47 !==  /*<<filename.ml:137:28>>*/ caml_string_get(n, 0) ? 1 : 0);
+       ||
+        (Object.is(47,  /*<<filename.ml:137:28>>*/ caml_string_get(n, 0))
+          ? 0
+          : 1);
     if(_ae_){
      var
       _af_ = caml_ml_string_length(n) < 1 ? 1 : 0,
       _ag_ =
         _af_
-        || (92 !==  /*<<filename.ml:138:31>>*/ caml_string_get(n, 0) ? 1 : 0);
+        ||
+         (Object.is(92,  /*<<filename.ml:138:31>>*/ caml_string_get(n, 0))
+           ? 0
+           : 1);
      if(_ag_)
       var
        _ah_ = caml_ml_string_length(n) < 2 ? 1 : 0,
        _ai_ =
          _ah_
-         || (58 !==  /*<<filename.ml:139:31>>*/ caml_string_get(n, 1) ? 1 : 0);
+         ||
+          (Object.is(58,  /*<<filename.ml:139:31>>*/ caml_string_get(n, 1))
+            ? 0
+            : 1);
      else
       var _ai_ = _ag_;
     }
@@ -33045,11 +33198,11 @@
       }
        /*<<filename.ml:172:12>>*/  /*<<filename.ml:172:12>>*/ var
        c =  /*<<filename.ml:172:12>>*/ caml_string_get(s, i$0);
-      if(34 === c){
+      if(Object.is(34, c)){
         /*<<filename.ml:173:16>>*/ loop_bs(0, i$0);
         /*<<filename.ml:173:16>>*/ return;
       }
-      if(92 === c){
+      if(Object.is(92, c)){
         /*<<filename.ml:174:16>>*/ loop_bs(0, i$0);
         /*<<filename.ml:174:16>>*/ return;
       }
@@ -33071,14 +33224,14 @@
       }
        /*<<filename.ml:181:14>>*/  /*<<filename.ml:181:14>>*/ var
        match =  /*<<filename.ml:181:14>>*/ caml_string_get(s, i$0);
-      if(34 === match){
+      if(Object.is(34, match)){
         /*<<filename.ml:182:18>>*/ add_bs((2 * n$0 | 0) + 1 | 0);
         /*<<filename.ml:182:34>>*/  /*<<filename.ml:182:34>>*/ caml_call2
         (Stdlib_Buffer[12], b, 34);
         /*<<filename.ml:182:34>>*/ loop(i$0 + 1 | 0);
         /*<<filename.ml:182:34>>*/ return;
       }
-      if(92 !== match){
+      if(! Object.is(92, match)){
         /*<<filename.ml:184:18>>*/ add_bs(n$0);
         /*<<filename.ml:184:18>>*/ loop(i$0);
         /*<<filename.ml:184:18>>*/ return;
@@ -33111,7 +33264,8 @@
     /*<<filename.ml:189:21>>*/ }
    function quote_cmd_filename(f){
     function _N_(param){
-      /*<<filename.ml:222:21>>*/ if(34 !== param && 37 !== param)
+      /*<<filename.ml:222:21>>*/ if
+      (! Object.is(34, param) && ! Object.is(37, param))
        /*<<filename.ml:222:57>>*/ return 0;
       /*<<filename.ml:222:45>>*/ return 1;
      /*<<filename.ml:222:63>>*/ }
@@ -33173,11 +33327,14 @@
      {
       if(62 <= c){
        var _M_ = c - 63 | 0;
-       if(60 < _M_ >>> 0){if(62 <= _M_) break a;} else if(31 !== _M_) break a;
+       if(60 < _M_ >>> 0){
+        if(62 <= _M_) break a;
+       }
+       else if(! Object.is(31, _M_)) break a;
       }
       else
        if(42 <= c){
-        if(60 !== c) break a;
+        if(! Object.is(60, c)) break a;
        }
        else{
         if(33 > c) break a;
@@ -33226,7 +33383,10 @@
       /*<<filename.ml:250:28>>*/  /*<<filename.ml:250:28>>*/ var
       _w_ =
         _v_
-         ? 58 ===  /*<<filename.ml:250:47>>*/ caml_string_get(s, 1) ? 1 : 0
+         ? Object.is
+            (58,  /*<<filename.ml:250:47>>*/ caml_string_get(s, 1))
+           ? 1
+           : 0
          : _v_;
     }
     else
@@ -33318,7 +33478,9 @@
    function concat(dirname, filename){
      /*<<filename.ml:290:2>>*/ var l = caml_ml_string_length(dirname);
      /*<<filename.ml:291:14>>*/ if
-     (0 !== l && ! is_dir_sep$1(dirname, l - 1 | 0)){
+     (!
+       /*<<filename.ml:291:2>>*/ Object.is(0, l)
+      && ! is_dir_sep$1(dirname, l - 1 | 0)){
       /*<<filename.ml:293:17>>*/  /*<<filename.ml:293:17>>*/ var
       _r_ =
          /*<<filename.ml:293:17>>*/ caml_call2
@@ -33346,7 +33508,8 @@
      /*<<filename.ml:307:4>>*/ for(;;){
       /*<<filename.ml:307:16>>*/ if(0 <= i0 && ! is_dir_sep$1(name, i0)){
        /*<<filename.ml:308:12>>*/ if
-       (46 ===  /*<<filename.ml:308:12>>*/ caml_string_get(name, i0))
+       ( /*<<filename.ml:308:12>>*/ Object.is
+         (46,  /*<<filename.ml:308:12>>*/ caml_string_get(name, i0)))
        break;
        /*<<filename.ml:309:9>>*/ var
         /*<<filename.ml:309:9>>*/ i$2 = i0 - 1 | 0,
@@ -33361,7 +33524,9 @@
      /*<<filename.ml:302:4>>*/ for(;;){
       /*<<filename.ml:302:16>>*/ if(0 <= i && ! is_dir_sep$1(name, i)){
        /*<<filename.ml:303:12>>*/ if
-       (46 !==  /*<<filename.ml:303:12>>*/ caml_string_get(name, i))
+       (!
+         /*<<filename.ml:303:12>>*/ Object.is
+         (46,  /*<<filename.ml:303:12>>*/ caml_string_get(name, i)))
        return caml_ml_string_length(name) - i0 | 0;
        /*<<filename.ml:303:32>>*/ var
         /*<<filename.ml:303:32>>*/ i$0 = i - 1 | 0,
@@ -33374,7 +33539,8 @@
    function extension(name){
      /*<<filename.ml:314:2>>*/  /*<<filename.ml:314:10>>*/ var
      l = extension_len(name);
-     /*<<filename.ml:315:2>>*/ return 0 === l
+     /*<<filename.ml:315:2>>*/ return  /*<<filename.ml:315:2>>*/ Object.is
+             (0, l)
             ? cst$18
             :  /*<<filename.ml:315:24>>*/ caml_call3
               (Stdlib_String[16],
@@ -33385,7 +33551,8 @@
    function chop_extension(name){
      /*<<filename.ml:318:2>>*/  /*<<filename.ml:318:10>>*/ var
      l = extension_len(name);
-     /*<<filename.ml:319:2>>*/ return 0 === l
+     /*<<filename.ml:319:2>>*/ return  /*<<filename.ml:319:2>>*/ Object.is
+             (0, l)
             ?  /*<<filename.ml:319:16>>*/ caml_call1
               (Stdlib[1], cst_Filename_chop_extension)
             : caml_call3
@@ -33397,7 +33564,8 @@
    function remove_extension(name){
      /*<<filename.ml:323:2>>*/  /*<<filename.ml:323:10>>*/ var
      l = extension_len(name);
-     /*<<filename.ml:324:2>>*/ return 0 === l
+     /*<<filename.ml:324:2>>*/ return  /*<<filename.ml:324:2>>*/ Object.is
+             (0, l)
             ? name
             : caml_call3
               (Stdlib_String[16],
@@ -34456,12 +34624,13 @@
    function read_upto(ic, buf, ofs, len){
      /*<<in_channel.ml:84:2>>*/ var ofs$0 = ofs, len$0 = len;
      /*<<in_channel.ml:85:4>>*/ for(;;){
-     if(0 !== len$0){
+     if(! Object.is(0, len$0)){
        /*<<in_channel.ml:87:14>>*/  /*<<in_channel.ml:87:14>>*/ var
        r =
           /*<<in_channel.ml:87:14>>*/ caml_call4
           (Stdlib[84], ic, buf, ofs$0, len$0);
-       /*<<in_channel.ml:88:6>>*/ if(0 !== r){
+       /*<<in_channel.ml:88:6>>*/ if
+       (!  /*<<in_channel.ml:88:6>>*/ Object.is(0, r)){
        var
         len$1 = len$0 - r | 0,
         ofs$1 = ofs$0 + r | 0,
diff --git a/compiler/tests-jsoo/test_obj.ml b/compiler/tests-jsoo/test_obj.ml
index ebd3888ab2..a5a3029863 100644
--- a/compiler/tests-jsoo/test_obj.ml
+++ b/compiler/tests-jsoo/test_obj.ml
@@ -72,7 +72,12 @@ let%expect_test "dup" =
   |}]
 
 let%expect_test "sameness" =
+  let mzero = 1. /. neg_infinity in
   print_bool (nan == nan);
   [%expect {| true |}];
   print_bool (-0. == 0.);
+  [%expect {| false |}];
+  print_bool (mzero == float_of_int 0);
+  [%expect {| false |}];
+  print_bool (float_of_int 0 == ~-.(float_of_int 0));
   [%expect {| false |}]