"new c" non expansif si est une fonction

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2062 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1998-08-16 05:35:15 +00:00 · 1998-08-16 05:35:15 +00:00 · d6c0b82888
parent cc886aa13d
commit d6c0b82888
1 changed files with 1 additions and 0 deletions
--- a/typing/typecore.ml
+++ b/typing/typecore.ml
@ -287,6 +287,7 @@ let rec is_nonexpansive exp =
      (match opt_init_exp with None -> true | Some e -> is_nonexpansive e)
  | Texp_field(exp, lbl) -> is_nonexpansive exp
  | Texp_array [] -> true
+  | Texp_new (_, arity) when arity > 0 -> true
  | _ -> false

 (* Typing of printf formats *)