--

Author: marcpouzet

compiler/typing/typing.ml

@@ -399,7 +399,8 @@ let rec build (names, inames) { eq_desc = desc } =
          block_with_bounded (names, inames) b in
        let esc_names, esc_inames =
          List.fold_left escape (names, inames) esc_list in
-       S.union names (if is_weak then S.diff esc_names bounded else esc_names),
+       S.union names
+         (if is_weak then S.diff esc_names bounded else esc_names),
        S.union inames
          (if is_weak then S.diff esc_inames bounded else esc_inames)
      in

dune

@@ -1 +1 @@
-(env (dev (flags (:standard -w +a-4-6-7-9-27-29-32..42-44-45-48-50-60-68-70 -warn-error -a+31))))
+(env (dev (flags (:standard -w +a-4-6-7-9-26-27-29-32..42-44-45-48-50-60-68-70 -warn-error -a+31))))