Add Float.equal, Float.compare

Author: cknitt

src/Core__Float.mjs

@@ -3,6 +3,20 @@
 
 var Constants = {};
 
+function equal(a, b) {
+  return a === b;
+}
+
+function compare(a, b) {
+  if (a === b) {
+    return 0;
+  } else if (a > b) {
+    return 1;
+  } else {
+    return -1;
+  }
+}
+
 function fromString(i) {
   var i$1 = parseFloat(i);
   if (isNaN(i$1)) {
@@ -14,6 +28,8 @@ function fromString(i) {
 
 export {
   Constants ,
+  equal ,
+  compare ,
   fromString ,
 }
 /* No side effect */

src/Core__Float.res

@@ -7,6 +7,17 @@ module Constants = {
   @val external maxValue: float = "Number.MAX_VALUE"
 }
 
+let equal = (a: float, b: float) => a === b
+
+let compare = (a: float, b: float) =>
+  if a === b {
+    0
+  } else if a > b {
+    1
+  } else {
+    -1
+  }
+
 @val external isNaN: float => bool = "isNaN"
 @val external isFinite: float => bool = "isFinite"
 @val external parseFloat: 'a => float = "parseFloat"

src/Core__Float.resi

@@ -109,6 +109,10 @@ module Constants: {
   external maxValue: float = "Number.MAX_VALUE"
 }
 
+let equal: (float, float) => bool
+
+let compare: (float, float) => int
+
 /**
 `isNaN(v)` tests if the given `v` is `NaN`.
 See [`NaN`](https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/NaN) on MDN.