rescript-lang · cknitt · Oct 7, 2024 · Oct 7, 2024 · Oct 4, 2024
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -50,6 +50,7 @@
 - Build tests with bsb and move them out of jscomp. https://github.com/rescript-lang/rescript-compiler/pull/7068
 - Run `build_tests` on Windows. https://github.com/rescript-lang/rescript-compiler/pull/7065
 - Rename folder "jscomp" to "compiler". https://github.com/rescript-lang/rescript-compiler/pull/7086
+- Disable -bs-cross-module-opt for tests. https://github.com/rescript-lang/rescript-compiler/pull/7071
 
 # 12.0.0-alpha.3
 

diff --git a/lib/es6/char.js b/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,

diff --git a/lib/js/char.js b/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;

diff --git a/runtime/char.res b/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"
 

diff --git a/runtime/char.resi b/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

diff --git a/tests/tests/rescript.json b/tests/tests/rescript.json
@@ -11,7 +11,6 @@
     "in-source": true
   },
   "bsc-flags": [
-    "-bs-cross-module-opt",
     "-w -3-6-26-27-29-30-32..40-44-45-52-60-9-106+104",
     "-warn-error A"
   ]

diff --git a/tests/tests/src/Import.js b/tests/tests/src/Import.js
diff --git a/tests/tests/src/SafePromises.js b/tests/tests/src/SafePromises.js
diff --git a/tests/tests/src/belt_hashmap_test.js b/tests/tests/src/belt_hashmap_test.js
diff --git a/tests/tests/src/belt_hashset_int_test.js b/tests/tests/src/belt_hashset_int_test.js
diff --git a/tests/tests/src/belt_list_test.js b/tests/tests/src/belt_list_test.js
diff --git a/tests/tests/src/belt_sortarray_test.js b/tests/tests/src/belt_sortarray_test.js
diff --git a/tests/tests/src/bench.js b/tests/tests/src/bench.js