Merge pull request #4725 from rescript-lang/fix_4722

bobzhang · web-flow · commit 7588709c1574 · 2020-09-25T12:10:17.000+08:00
fix #4772
diff --git a/jscomp/syntax/bs_builtin_ppx.ml b/jscomp/syntax/bs_builtin_ppx.ml
@@ -179,8 +179,11 @@ let expr_mapper  (self : mapper) (e : Parsetree.expression) =
           -> 
             default_expr_mapper self {e with pexp_desc = Pexp_ifthenelse (b,t_exp,Some f_exp)}    
         | Pexp_let (Nonrecursive, 
-            [{pvb_pat = {ppat_desc = Ppat_record _ } as p; 
-             pvb_expr; 
+                    [{pvb_pat = 
+                        ({ ppat_desc = Ppat_record _ }
+                        |{ ppat_desc = Ppat_alias ({ppat_desc = Ppat_record _},_)}
+                        ) as p; 
+                      pvb_expr; 
              pvb_attributes; 
              pvb_loc = _}], body)             
           -> 
diff --git a/lib/4.06.1/unstable/js_compiler.ml b/lib/4.06.1/unstable/js_compiler.ml
@@ -407958,8 +407958,11 @@ let expr_mapper  (self : mapper) (e : Parsetree.expression) =
           -> 
             default_expr_mapper self {e with pexp_desc = Pexp_ifthenelse (b,t_exp,Some f_exp)}    
         | Pexp_let (Nonrecursive, 
-            [{pvb_pat = {ppat_desc = Ppat_record _ } as p; 
-             pvb_expr; 
+                    [{pvb_pat = 
+                        ({ ppat_desc = Ppat_record _ }
+                        |{ ppat_desc = Ppat_alias ({ppat_desc = Ppat_record _},_)}
+                        ) as p; 
+                      pvb_expr; 
              pvb_attributes; 
              pvb_loc = _}], body)             
           -> 
diff --git a/lib/4.06.1/unstable/js_refmt_compiler.ml b/lib/4.06.1/unstable/js_refmt_compiler.ml
@@ -407958,8 +407958,11 @@ let expr_mapper  (self : mapper) (e : Parsetree.expression) =
           -> 
             default_expr_mapper self {e with pexp_desc = Pexp_ifthenelse (b,t_exp,Some f_exp)}    
         | Pexp_let (Nonrecursive, 
-            [{pvb_pat = {ppat_desc = Ppat_record _ } as p; 
-             pvb_expr; 
+                    [{pvb_pat = 
+                        ({ ppat_desc = Ppat_record _ }
+                        |{ ppat_desc = Ppat_alias ({ppat_desc = Ppat_record _},_)}
+                        ) as p; 
+                      pvb_expr; 
              pvb_attributes; 
              pvb_loc = _}], body)             
           -> 
diff --git a/lib/4.06.1/whole_compiler.ml b/lib/4.06.1/whole_compiler.ml
@@ -410838,8 +410838,11 @@ let expr_mapper  (self : mapper) (e : Parsetree.expression) =
           -> 
             default_expr_mapper self {e with pexp_desc = Pexp_ifthenelse (b,t_exp,Some f_exp)}    
         | Pexp_let (Nonrecursive, 
-            [{pvb_pat = {ppat_desc = Ppat_record _ } as p; 
-             pvb_expr; 
+                    [{pvb_pat = 
+                        ({ ppat_desc = Ppat_record _ }
+                        |{ ppat_desc = Ppat_alias ({ppat_desc = Ppat_record _},_)}
+                        ) as p; 
+                      pvb_expr; 
              pvb_attributes; 
              pvb_loc = _}], body)             
           -> 
