Fix Char.chr appearing in JS output

Author: cknitt

lib/es6/char.js

@@ -1,10 +1,6 @@
 
 
 
-function chr(prim) {
-  return prim;
-}
-
 function escaped(param) {
   let exit = 0;
   if (param >= 40) {
@@ -83,7 +79,6 @@ function equal(c1, c2) {
 }
 
 export {
-  chr,
   escaped,
   lowercase_ascii,
   uppercase_ascii,

lib/js/char.js

@@ -1,10 +1,6 @@
 'use strict';
 
 
-function chr(prim) {
-  return prim;
-}
-
 function escaped(param) {
   let exit = 0;
   if (param >= 40) {
@@ -82,7 +78,6 @@ function equal(c1, c2) {
   return (c1 - c2 | 0) === 0;
 }
 
-exports.chr = chr;
 exports.escaped = escaped;
 exports.lowercase_ascii = lowercase_ascii;
 exports.uppercase_ascii = uppercase_ascii;

runtime/char.res

@@ -10,7 +10,7 @@ external code: t => int = "%identity"
 
 external unsafe_chr: int => t = "%identity"
 
-let chr = unsafe_chr
+external chr: int => t = "%identity"
 
 external bytes_create: int => array<char> = "Array"
 

runtime/char.resi

@@ -10,7 +10,7 @@ external code: char => int = "%identity"
    Raise [Invalid_argument "Char.chr"] if the argument is
    outside the range 0--255. */
 @deprecated("Use Core instead. This will be removed in v13")
-let chr: int => char
+external chr: int => char = "%identity"
 
 /** Return a string representing the given character,
     with special characters escaped following the lexical conventions