From fd47ba9649f784c7d0772bdf282b8e7c8f1fe5aa Mon Sep 17 00:00:00 2001 From: Alain Frisch Date: Thu, 20 Jul 2017 08:17:30 +0200 Subject: Support 'let open' in class and class type expressions (#1249) * Support 'let open' in class and class type expressions. * Adapt ocamlprof. * Adapt ocamldoc. * Add tests. * Changelog. * Manual. --- tools/ocamlprof.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'tools/ocamlprof.ml') diff --git a/tools/ocamlprof.ml b/tools/ocamlprof.ml index fb08ffd5ea..2e72d52cf0 100644 --- a/tools/ocamlprof.ml +++ b/tools/ocamlprof.ml @@ -367,6 +367,7 @@ and rewrite_class_expr iflag cexpr = | Pcl_let (_, spat_sexp_list, cexpr) -> rewrite_patexp_list iflag spat_sexp_list; rewrite_class_expr iflag cexpr + | Pcl_open (_, _, cexpr) | Pcl_constraint (cexpr, _) -> rewrite_class_expr iflag cexpr | Pcl_extension _ -> () -- cgit v1.2.1