Add Int.equal, Int.compare

Author: cknitt

src/Core__Int.mjs

@@ -3,6 +3,14 @@
 import * as Pervasives from "rescript/lib/es6/pervasives.js";
 import * as Core__Array from "./Core__Array.mjs";
 
+function equal(a, b) {
+  return a === b;
+}
+
+function compare(a, b) {
+  return a - b | 0;
+}
+
 function fromString(radix, x) {
   var maybeInt = radix !== undefined ? parseInt(x, radix) : parseInt(x);
   if (isNaN(maybeInt) || maybeInt > 2147483647 || maybeInt < -2147483648) {
@@ -54,6 +62,8 @@ var Constants = {
 
 export {
   Constants ,
+  equal ,
+  compare ,
   fromString ,
   range ,
   rangeWithOptions ,

src/Core__Int.res

@@ -3,6 +3,10 @@ module Constants = {
   @inline let maxValue = 2147483647
 }
 
+let equal = (a: int, b: int) => a === b
+
+let compare = (a, b) => a - b
+
 @send external toExponential: int => string = "toExponential"
 @send external toExponentialWithPrecision: (int, ~digits: int) => string = "toExponential"
 

src/Core__Int.resi

@@ -56,6 +56,10 @@ module Constants: {
   let maxValue: int
 }
 
+let equal: (int, int) => bool
+
+let compare: (int, int) => int
+
 /**
 `toExponential(n)` return a `string` representing the given value in exponential
 notation.