Fix issue with bytes_to_string in library.

Fixes #5573

Author: cristianoc

jscomp/core/js_of_lam_string.ml

@@ -60,7 +60,7 @@ let set_byte e e0 e1 = E.assign (E.array_index e e0) e1
    ]}
 *)
 let bytes_to_string e =
-  E.runtime_call Js_runtime_modules.bytes "bytes_to_string" [ e ]
+  E.runtime_call Js_runtime_modules.bytes_ "bytes_to_string" [ e ]
 
 let bytes_of_string s =
   E.runtime_call Js_runtime_modules.bytes "bytes_of_string" [ s ]

jscomp/ext/js_runtime_modules.ml

@@ -41,6 +41,7 @@ let format = "Caml_format"
 let string = "Caml_string"
 
 let bytes = "Caml_bytes"
+let bytes_ = "Bytes"
 
 let float = "Caml_float"
 

jscomp/test/test_bytes.js

@@ -1,11 +1,10 @@
 'use strict';
 
 var Bytes = require("../../lib/js/bytes.js");
-var Caml_bytes = require("../../lib/js/caml_bytes.js");
 
 var f = Bytes.unsafe_to_string;
 
-var ff = Caml_bytes.bytes_to_string;
+var ff = Bytes.bytes_to_string;
 
 exports.f = f;
 exports.ff = ff;

lib/4.06.1/unstable/js_compiler.ml

@@ -76406,6 +76406,7 @@ let format = "Caml_format"
 let string = "Caml_string"
 
 let bytes = "Caml_bytes"
+let bytes_ = "Bytes"
 
 let float = "Caml_float"
 
@@ -94673,7 +94674,7 @@ let set_byte e e0 e1 = E.assign (E.array_index e e0) e1
    ]}
 *)
 let bytes_to_string e =
-  E.runtime_call Js_runtime_modules.bytes "bytes_to_string" [ e ]
+  E.runtime_call Js_runtime_modules.bytes_ "bytes_to_string" [ e ]
 
 let bytes_of_string s =
   E.runtime_call Js_runtime_modules.bytes "bytes_of_string" [ s ]

lib/4.06.1/unstable/js_playground_compiler.ml

@@ -76406,6 +76406,7 @@ let format = "Caml_format"
 let string = "Caml_string"
 
 let bytes = "Caml_bytes"
+let bytes_ = "Bytes"
 
 let float = "Caml_float"
 
@@ -94673,7 +94674,7 @@ let set_byte e e0 e1 = E.assign (E.array_index e e0) e1
    ]}
 *)
 let bytes_to_string e =
-  E.runtime_call Js_runtime_modules.bytes "bytes_to_string" [ e ]
+  E.runtime_call Js_runtime_modules.bytes_ "bytes_to_string" [ e ]
 
 let bytes_of_string s =
   E.runtime_call Js_runtime_modules.bytes "bytes_of_string" [ s ]

lib/4.06.1/whole_compiler.ml

@@ -252272,6 +252272,7 @@ let format = "Caml_format"
 let string = "Caml_string"
 
 let bytes = "Caml_bytes"
+let bytes_ = "Bytes"
 
 let float = "Caml_float"
 
@@ -263944,7 +263945,7 @@ let set_byte e e0 e1 = E.assign (E.array_index e e0) e1
    ]}
 *)
 let bytes_to_string e =
-  E.runtime_call Js_runtime_modules.bytes "bytes_to_string" [ e ]
+  E.runtime_call Js_runtime_modules.bytes_ "bytes_to_string" [ e ]
 
 let bytes_of_string s =
   E.runtime_call Js_runtime_modules.bytes "bytes_of_string" [ s ]

lib/es6/char.js

@@ -1,6 +1,6 @@
 
 
-import * as Caml_bytes from "./caml_bytes.js";
+import * as Bytes from "./bytes.js";
 
 function chr(n) {
   if (n < 0 || n > 255) {
@@ -64,11 +64,11 @@ function escaped(c) {
         s[1] = 48 + (c / 100 | 0) | 0;
         s[2] = 48 + (c / 10 | 0) % 10 | 0;
         s[3] = 48 + c % 10 | 0;
-        return Caml_bytes.bytes_to_string(s);
+        return Bytes.bytes_to_string(s);
     case 2 :
         var s$1 = [0];
         s$1[0] = c;
-        return Caml_bytes.bytes_to_string(s$1);
+        return Bytes.bytes_to_string(s$1);
 
   }
 }

lib/js/char.js

@@ -1,6 +1,6 @@
 'use strict';
 
-var Caml_bytes = require("./caml_bytes.js");
+var Bytes = require("./bytes.js");
 
 function chr(n) {
   if (n < 0 || n > 255) {
@@ -64,11 +64,11 @@ function escaped(c) {
         s[1] = 48 + (c / 100 | 0) | 0;
         s[2] = 48 + (c / 10 | 0) % 10 | 0;
         s[3] = 48 + c % 10 | 0;
-        return Caml_bytes.bytes_to_string(s);
+        return Bytes.bytes_to_string(s);
     case 2 :
         var s$1 = [0];
         s$1[0] = c;
-        return Caml_bytes.bytes_to_string(s$1);
+        return Bytes.bytes_to_string(s$1);
 
   }
 }