One more typo.

Author: cristianoc

compiler/ml/translcore.ml

@@ -392,7 +392,7 @@ let primitives_table =
       ("#undefined", Pundefined);
       ("#typeof", Ptypeof);
       ("#is_nullable", Pisnullable);
-      ("#null_to_opt", Pnullable_to_opt);
+      ("#null_to_opt", Pnull_to_opt);
       ("#nullable_to_opt", Pnullable_to_opt);
       ("#undefined_to_opt", Pundefined_to_opt);
       ("#makemutablelist", Pmakelist Mutable);

lib/es6/Null.js

@@ -12,23 +12,23 @@ function fromOption(option) {
 }
 
 function equal(a, b, eq) {
-  return Option.equal((a == null) ? undefined : Primitive_option.some(a), (b == null) ? undefined : Primitive_option.some(b), eq);
+  return Option.equal(a === null ? undefined : Primitive_option.some(a), b === null ? undefined : Primitive_option.some(b), eq);
 }
 
 function compare(a, b, cmp) {
-  return Option.compare((a == null) ? undefined : Primitive_option.some(a), (b == null) ? undefined : Primitive_option.some(b), cmp);
+  return Option.compare(a === null ? undefined : Primitive_option.some(a), b === null ? undefined : Primitive_option.some(b), cmp);
 }
 
 function getOr(value, $$default) {
-  if (value == null) {
-    return $$default;
-  } else {
+  if (value !== null) {
     return value;
+  } else {
+    return $$default;
   }
 }
 
 function getExn(value) {
-  if (!(value == null)) {
+  if (value !== null) {
     return value;
   }
   throw {
@@ -39,33 +39,33 @@ function getExn(value) {
 }
 
 function forEach(value, f) {
-  if (!(value == null)) {
+  if (value !== null) {
     return f(value);
   }
 
 }
 
 function map(value, f) {
-  if (value == null) {
-    return null;
-  } else {
+  if (value !== null) {
     return f(value);
+  } else {
+    return null;
   }
 }
 
 function mapOr(value, $$default, f) {
-  if (value == null) {
-    return $$default;
-  } else {
+  if (value !== null) {
     return f(value);
+  } else {
+    return $$default;
   }
 }
 
 function flatMap(value, f) {
-  if (value == null) {
-    return null;
-  } else {
+  if (value !== null) {
     return f(value);
+  } else {
+    return null;
   }
 }
 

lib/js/Null.js

@@ -12,23 +12,23 @@ function fromOption(option) {
 }
 
 function equal(a, b, eq) {
-  return Option.equal((a == null) ? undefined : Primitive_option.some(a), (b == null) ? undefined : Primitive_option.some(b), eq);
+  return Option.equal(a === null ? undefined : Primitive_option.some(a), b === null ? undefined : Primitive_option.some(b), eq);
 }
 
 function compare(a, b, cmp) {
-  return Option.compare((a == null) ? undefined : Primitive_option.some(a), (b == null) ? undefined : Primitive_option.some(b), cmp);
+  return Option.compare(a === null ? undefined : Primitive_option.some(a), b === null ? undefined : Primitive_option.some(b), cmp);
 }
 
 function getOr(value, $$default) {
-  if (value == null) {
-    return $$default;
-  } else {
+  if (value !== null) {
     return value;
+  } else {
+    return $$default;
   }
 }
 
 function getExn(value) {
-  if (!(value == null)) {
+  if (value !== null) {
     return value;
   }
   throw {
@@ -39,33 +39,33 @@ function getExn(value) {
 }
 
 function forEach(value, f) {
-  if (!(value == null)) {
+  if (value !== null) {
     return f(value);
   }
 
 }
 
 function map(value, f) {
-  if (value == null) {
-    return null;
-  } else {
+  if (value !== null) {
     return f(value);
+  } else {
+    return null;
   }
 }
 
 function mapOr(value, $$default, f) {
-  if (value == null) {
-    return $$default;
-  } else {
+  if (value !== null) {
     return f(value);
+  } else {
+    return $$default;
   }
 }
 
 function flatMap(value, f) {
-  if (value == null) {
-    return null;
-  } else {
+  if (value !== null) {
     return f(value);
+  } else {
+    return null;
   }
 }