snapshot

Author: bobzhang

lib/4.06.1/unstable/js_compiler.ml

@@ -401616,11 +401616,12 @@ let emit_external_warnings : iterator=
           );
       default_iterator.label_declaration self lbl      
     );  
-    constructor_declaration = (fun self ({pcd_name} as ctr) -> 
-      (match pcd_name.txt with  
+    constructor_declaration = (fun self ({pcd_name = {txt;loc}} as ctr) -> 
+      (match txt with  
       | "false"
-      | "true"  -> 
-        Location.raise_errorf ~loc:pcd_name.loc "true/false can not be redefined "
+      | "true" 
+      | "()" -> 
+        Location.raise_errorf ~loc:loc "%s can not be redefined " txt
       | _ -> ());
       default_iterator.constructor_declaration self ctr  
     );

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -401616,11 +401616,12 @@ let emit_external_warnings : iterator=
           );
       default_iterator.label_declaration self lbl      
     );  
-    constructor_declaration = (fun self ({pcd_name} as ctr) -> 
-      (match pcd_name.txt with  
+    constructor_declaration = (fun self ({pcd_name = {txt;loc}} as ctr) -> 
+      (match txt with  
       | "false"
-      | "true"  -> 
-        Location.raise_errorf ~loc:pcd_name.loc "true/false can not be redefined "
+      | "true" 
+      | "()" -> 
+        Location.raise_errorf ~loc:loc "%s can not be redefined " txt
       | _ -> ());
       default_iterator.constructor_declaration self ctr  
     );

lib/4.06.1/unstable/native_ppx.ml

@@ -15082,11 +15082,12 @@ let emit_external_warnings : iterator=
           );
       default_iterator.label_declaration self lbl      
     );  
-    constructor_declaration = (fun self ({pcd_name} as ctr) -> 
-      (match pcd_name.txt with  
+    constructor_declaration = (fun self ({pcd_name = {txt;loc}} as ctr) -> 
+      (match txt with  
       | "false"
-      | "true"  -> 
-        Location.raise_errorf ~loc:pcd_name.loc "true/false can not be redefined "
+      | "true" 
+      | "()" -> 
+        Location.raise_errorf ~loc:loc "%s can not be redefined " txt
       | _ -> ());
       default_iterator.constructor_declaration self ctr  
     );

lib/4.06.1/whole_compiler.ml

@@ -297041,11 +297041,12 @@ let emit_external_warnings : iterator=
           );
       default_iterator.label_declaration self lbl      
     );  
-    constructor_declaration = (fun self ({pcd_name} as ctr) -> 
-      (match pcd_name.txt with  
+    constructor_declaration = (fun self ({pcd_name = {txt;loc}} as ctr) -> 
+      (match txt with  
       | "false"
-      | "true"  -> 
-        Location.raise_errorf ~loc:pcd_name.loc "true/false can not be redefined "
+      | "true" 
+      | "()" -> 
+        Location.raise_errorf ~loc:loc "%s can not be redefined " txt
       | _ -> ());
       default_iterator.constructor_declaration self ctr  
     );