Fix parenthesing of let in class expressions

Author: Julow

lib/Ast.ml

@@ -1777,6 +1777,7 @@ end = struct
       match c.pcl_desc with
       | Pcl_apply _ -> Some Apply
       | Pcl_structure _ -> Some Apply
+      | Pcl_let _ -> Some Low
       | _ -> None )
     | Top | Pat _ | Mty _ | Mod _ | Sig _ | Str _ | Tli _ | Clf _ | Ctf _
      |Rep | Mb _ | Md _ | Cd _ | Ctd _ ->

test/passing/tests/class_expr.ml

@@ -15,3 +15,8 @@ class c =
         let pci_params = self#list in
         ()
   end
+
+class c =
+  (let () = print_endline "Class init" in
+   with_param)
+    ()