snapshot

Author: bobzhang

lib/4.06.1/unstable/js_compiler.ml

@@ -88713,7 +88713,7 @@ and expression_desc cxt ~(level:int) f x : cxt  =
            else []
           ) in 
       if p.num_nonconst = 1 then tails
-      else ("tag",
+      else (L.tag,
         if !Js_config.debug then tag else {tag with comment = Some p.name}) :: tails in 
     if p.num_nonconst = 1 && not !Js_config.debug then 
       pp_comment_option f (Some p.name);
@@ -88728,7 +88728,7 @@ and expression_desc cxt ~(level:int) f x : cxt  =
       if p.num_nonconst = 1 then       
         tails
       else         
-        ("tag",
+        (L.tag,
           if !Js_config.debug then tag else {tag with comment = Some p.name}) :: tails
     in 
     if p.num_nonconst = 1 && not !Js_config.debug then 

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -88713,7 +88713,7 @@ and expression_desc cxt ~(level:int) f x : cxt  =
            else []
           ) in 
       if p.num_nonconst = 1 then tails
-      else ("tag",
+      else (L.tag,
         if !Js_config.debug then tag else {tag with comment = Some p.name}) :: tails in 
     if p.num_nonconst = 1 && not !Js_config.debug then 
       pp_comment_option f (Some p.name);
@@ -88728,7 +88728,7 @@ and expression_desc cxt ~(level:int) f x : cxt  =
       if p.num_nonconst = 1 then       
         tails
       else         
-        ("tag",
+        (L.tag,
           if !Js_config.debug then tag else {tag with comment = Some p.name}) :: tails
     in 
     if p.num_nonconst = 1 && not !Js_config.debug then 

lib/4.06.1/whole_compiler.ml

@@ -381923,7 +381923,7 @@ and expression_desc cxt ~(level:int) f x : cxt  =
            else []
           ) in 
       if p.num_nonconst = 1 then tails
-      else ("tag",
+      else (L.tag,
         if !Js_config.debug then tag else {tag with comment = Some p.name}) :: tails in 
     if p.num_nonconst = 1 && not !Js_config.debug then 
       pp_comment_option f (Some p.name);
@@ -381938,7 +381938,7 @@ and expression_desc cxt ~(level:int) f x : cxt  =
       if p.num_nonconst = 1 then       
         tails
       else         
-        ("tag",
+        (L.tag,
           if !Js_config.debug then tag else {tag with comment = Some p.name}) :: tails
     in 
     if p.num_nonconst = 1 && not !Js_config.debug then 

lib/es6/caml_obj.js

@@ -5,12 +5,6 @@ import * as Caml_primitive from "./caml_primitive.js";
 var for_in = (function(o,foo){
         for (var x in o) { foo(x) }});
 
-function caml_obj_block(tag, size) {
-  var v = new Array(size);
-  v.tag = tag;
-  return v;
-}
-
 var caml_obj_dup = (function(x){
   if(Array.isArray(x)){
     var len = x.length  
@@ -405,7 +399,6 @@ function caml_obj_set_tag(prim, prim$1) {
 }
 
 export {
-  caml_obj_block ,
   caml_obj_dup ,
   update_dummy ,
   caml_compare ,

lib/js/caml_obj.js

@@ -5,12 +5,6 @@ var Caml_primitive = require("./caml_primitive.js");
 var for_in = (function(o,foo){
         for (var x in o) { foo(x) }});
 
-function caml_obj_block(tag, size) {
-  var v = new Array(size);
-  v.tag = tag;
-  return v;
-}
-
 var caml_obj_dup = (function(x){
   if(Array.isArray(x)){
     var len = x.length  
@@ -404,7 +398,6 @@ function caml_obj_set_tag(prim, prim$1) {
 
 }
 
-exports.caml_obj_block = caml_obj_block;
 exports.caml_obj_dup = caml_obj_dup;
 exports.update_dummy = update_dummy;
 exports.caml_compare = caml_compare;