Merge pull request #4547 from BuckleScript/disable_record_punning

curry-less for the runtime

Author: bobzhang

jscomp/runtime/caml_io.ml

@@ -28,12 +28,12 @@ let stdin = Caml_undefined_extern.empty
 
 type out_channel  = {
   mutable buffer :  string;
-  output :   out_channel  -> string -> unit 
+  output :   (out_channel  -> string -> unit [@bs])
 }
 
 let stdout = {
   buffer = "";
-  output = (fun _ s ->
+  output = (fun [@bs] _ s ->
     let module String = Caml_string_extern in
     let v =Caml_string_extern.length s - 1 in
     if [%bs.raw{| (typeof process !== "undefined") && process.stdout && process.stdout.write|}] then
@@ -46,7 +46,7 @@ let stdout = {
 
 let stderr = {
   buffer = "";
-  output = fun _ s ->
+  output = fun [@bs] _ s ->
     let module String = Caml_string_extern in
     let v =Caml_string_extern.length s - 1 in     
     if s.[v] = '\n' then
@@ -71,7 +71,7 @@ let caml_ml_input_char (ic : in_channel) : char =
 let caml_ml_flush (oc : out_channel)  : unit = 
   if oc.buffer  <> "" then
     begin     
-      oc.output oc oc.buffer;
+      oc.output oc oc.buffer [@bs];
       oc.buffer <- ""      
     end      
 

jscomp/runtime/release.ninja

@@ -31,7 +31,7 @@ build runtime/caml_int32.cmj : cc_cmi runtime/caml_int32.ml | runtime/caml_int32
 build runtime/caml_int32.cmi : cc runtime/caml_int32.mli | runtime/bs_stdlib_mini.cmi runtime/js.cmi runtime/js.cmj
 build runtime/caml_int64.cmj : cc_cmi runtime/caml_int64.ml | runtime/caml_float.cmj runtime/caml_float_extern.cmj runtime/caml_int64.cmi runtime/caml_nativeint_extern.cmj runtime/caml_primitive.cmj runtime/caml_string_extern.cmj runtime/js.cmj
 build runtime/caml_int64.cmi : cc runtime/caml_int64.mli | runtime/bs_stdlib_mini.cmi runtime/js.cmi runtime/js.cmj
-build runtime/caml_io.cmj : cc_cmi runtime/caml_io.ml | runtime/caml_io.cmi runtime/caml_string_extern.cmj runtime/caml_undefined_extern.cmj runtime/curry.cmj runtime/js.cmj
+build runtime/caml_io.cmj : cc_cmi runtime/caml_io.ml | runtime/caml_io.cmi runtime/caml_string_extern.cmj runtime/caml_undefined_extern.cmj runtime/js.cmj
 build runtime/caml_io.cmi : cc runtime/caml_io.mli | runtime/bs_stdlib_mini.cmi runtime/caml_undefined_extern.cmj runtime/js.cmi runtime/js.cmj
 build runtime/caml_lexer.cmj : cc_cmi runtime/caml_lexer.ml | runtime/caml_lexer.cmi
 build runtime/caml_lexer.cmi : cc runtime/caml_lexer.mli | runtime/bs_stdlib_mini.cmi runtime/js.cmi runtime/js.cmj

lib/es6/caml_io.js

@@ -1,6 +1,5 @@
 
 
-import * as Curry from "./curry.js";
 
 var stdout = {
   buffer: "",
@@ -34,7 +33,7 @@ var stderr = {
 
 function caml_ml_flush(oc) {
   if (oc.buffer !== "") {
-    Curry._2(oc.output, oc, oc.buffer);
+    oc.output(oc, oc.buffer);
     oc.buffer = "";
     return ;
   }

lib/js/caml_io.js

@@ -1,6 +1,5 @@
 'use strict';
 
-var Curry = require("./curry.js");
 
 var stdout = {
   buffer: "",
@@ -34,7 +33,7 @@ var stderr = {
 
 function caml_ml_flush(oc) {
   if (oc.buffer !== "") {
-    Curry._2(oc.output, oc, oc.buffer);
+    oc.output(oc, oc.buffer);
     oc.buffer = "";
     return ;
   }