fix compare function

Author: mununki

jscomp/runtime/caml.res

@@ -53,18 +53,12 @@ let float_compare = (x: float, y: float) =>
   }
 
 let bigint_compare = (x: bigint, y: bigint) =>
-  if x == y {
-    0
-  } else if x < y {
-    -1
-  } else if x > y {
-    1
-  } else if x == x {
-    1
-  } else if y == y {
+  if x < y {
     -1
-  } else {
+  } else if x == y {
     0
+  } else {
+    1
   }
 
 /* Lexical order */

lib/es6/caml.js

@@ -40,16 +40,12 @@ function float_compare(x, y) {
 }
 
 function bigint_compare(x, y) {
-  if (x === y) {
-    return 0;
-  } else if (x < y) {
-    return -1;
-  } else if (x > y || x === x) {
-    return 1;
-  } else if (y === y) {
+  if (x < y) {
     return -1;
-  } else {
+  } else if (x === y) {
     return 0;
+  } else {
+    return 1;
   }
 }
 

lib/js/caml.js

@@ -40,16 +40,12 @@ function float_compare(x, y) {
 }
 
 function bigint_compare(x, y) {
-  if (x === y) {
-    return 0;
-  } else if (x < y) {
-    return -1;
-  } else if (x > y || x === x) {
-    return 1;
-  } else if (y === y) {
+  if (x < y) {
     return -1;
-  } else {
+  } else if (x === y) {
     return 0;
+  } else {
+    return 1;
   }
 }